The unpac monorepo manager self-hosting as a monorepo using unpac
Restore a quote (#233)
+2
-1
+2
-1
vendor/opam/cmdliner/src/tool/cmdliner_main.ml
+2
-1
vendor/opam/cmdliner/src/tool/cmdliner_main.ml
···
31
31
in
32
32
let run_cmd args =
33
33
let cmd = String.concat " " (List.map Filename.quote args) in
34
-
let exit = Sys.command cmd in
34
+
let cmd = if Sys.win32 then strf {|"%s"|} cmd else cmd in
35
+
let exit = Sys.command cmd in
35
36
if exit = 0 then () else err_cmd exit cmd
36
37
in
37
38
let parent = Filename.dirname dir in