Normalize case of context root under Win32

Signed-off-by: Nicolás Ojeda Bär <[email protected]>
ocaml · Jan 15, 2021 · b2bdf1e · b2bdf1e
1 parent 13642e2
commit b2bdf1e
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/bin/common.ml b/bin/common.ml
@@ -86,9 +86,15 @@ let prefix_target common s = common.target_prefix ^ s
 
 let instrument_with t = t.instrument_with
 
+let normalize_cwd s =
+  if Sys.win32 then
+    Path.External.of_string (String.lowercase_ascii (Path.External.to_string s))
+  else
+    s
+
 let set_dirs c =
   if c.root.dir <> Filename.current_dir_name then Sys.chdir c.root.dir;
-  Path.set_root (Path.External.cwd ());
+  Path.set_root (normalize_cwd (Path.External.cwd ()));
   Path.Build.set_build_dir (Path.Build.Kind.of_string c.build_dir)
 
 let set_common_other ?log_file c ~targets =