The unpac monorepo manager self-hosting as a monorepo using unpac
Try to fix window build
+4
-1
+4
-1
vendor/opam/cmdliner/src/tool/cmdliner_main.ml
+4
-1
vendor/opam/cmdliner/src/tool/cmdliner_main.ml
···
164
164
| _ :: lines -> find_subs lines
165
165
| [] -> []
166
166
in
167
-
let exec = strf "%s --__complete %s --__complete=" tool cmd in
167
+
let exec =
168
+
strf "%s --__complete %s --__complete=" (Filename.quote tool) cmd
169
+
in
168
170
let comps = exec_stdout exec |> error_to_failure in
169
171
let comps = String.split_on_char '\n' comps in
170
172
match comps with
···
184
186
with Failure e -> Error e
185
187
186
188
let get_tool_command_man tool ~name cmd =
189
+
let tool = Filename.quote tool in
187
190
let exec = if cmd = "" then tool else String.concat " " [tool; cmd] in
188
191
let man_basename =
189
192
let exec = if cmd = "" then name else String.concat " " [name; cmd] in