error if path contains space

ocaml · Jun 3, 2024 · 4be63e4 · 4be63e4
1 parent 0b25e87
commit 4be63e4
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/client/opamClientConfig.ml b/src/client/opamClientConfig.ml
@@ -210,6 +210,13 @@ let opam_init ?root_dir ?strict ?solver =
 
   (* (i) get root dir *)
   let root = OpamStateConfig.opamroot ?root_dir () in
+  if Sys.win32
+     (* if default, redirection will be handled by opam init, or should have
+        been handled *)
+     && (root_dir <> None || OpamStateConfig.E.root () <> None)
+     && OpamStd.String.contains_char (OpamFilename.Dir.to_string root) ' ' then
+    OpamConsole.error "You opam root directory contains a space, this may lead\
+                       to several malfunction... bzzz.... nooo💥";
 
   (* (ii) load conf file and set defaults *)
   (* the init for OpamFormat is done in advance since (a) it has an effect on