Dhall cannot parse Windows absolute path

[to-omer]

状況

$ snowchains r t
Error: Could not evalute `C:\Users\path-to-config\snowchains.dhall`

Caused by:
     --> 3:15
      |
    3 | let config = C:\Users\path-to-config\snowchains.dhall␊
      |               ^---
      |
      = expected import_alt, bool_or, natural_plus, text_append, list_append, bool_and, natural_times, bool_eq, bool_ne, combine, combine_types, equivalent, prefer, arrow, or let_binding

発生個所

snowchains/src/config.rs

Lines 173 to 185 in d65d411

	serde_dhall::from_str(&format!(
	r"let relativePathSegments = {}
	let config = {}
	in {{ service = config.detectServiceFromRelativePathSegments relativePathSegments
	, contest = config.detectContestFromRelativePathSegments relativePathSegments
	, problem = config.detectProblemFromRelativePathSegments relativePathSegments
	, language = config.detectLanguageFromRelativePathSegments relativePathSegments
	}}
	",
	rel_path_components, path,
	))

[to-omer]

snowchains/src/config.rs

Lines 96 to 127 in d65d411

	fn find_snowchains_dhall(cwd: &Path, rel_path: Option<&Path>) -> anyhow::Result<String> {
	let path = if let Some(rel_path) = rel_path {
	let rel_path = rel_path.strip_prefix(".").unwrap_or(rel_path);
	let path = cwd.join(rel_path);
	ensure!(path.exists(), "`{}` does not exist", path.display());
	path
	} else {
	cwd.ancestors()
	.map(|p| p.join("snowchains.dhall"))
	.find(|p| p.exists())
	.with_context(|| {
	format!(
	"Could not find `snowchains.dhall` in `{}` or any parent directory",
	cwd.display(),
	)
	})?
	};
	let path = path
	.into_os_string()
	.into_string()
	.map_err(|path| anyhow!("The config path must be valid UTF-8: {:?}", path))?;
	if path.chars().any(|c| c.is_whitespace() || c.is_control()) {
	bail!(
	"The config path must not contain whitespace and control characters: {:?}",
	path,
	);
	}
	Ok(path)
	}

ここで相対パスにして replace('\\', "/") をすると回避はできそうです