The unpac monorepo manager self-hosting as a monorepo using unpac
One last (?) attempt at fixing cmdliner tool on Windows (#233)
+4
-2
+4
-2
vendor/opam/cmdliner/src/tool/cmdliner_main.ml
+4
-2
vendor/opam/cmdliner/src/tool/cmdliner_main.ml
···
94
94
match Sys.command exec with
95
95
| 0 ->
96
96
let ic = open_in_bin tmp in
97
-
let finally () = close_in_noerr ic in
97
+
let finally () =
98
+
close_in_noerr ic;
99
+
try Sys.remove tmp with Sys_error _ -> () (* not that important *)
100
+
in
98
101
let len = in_channel_length ic in
99
102
Fun.protect ~finally @@ fun () ->
100
103
let stdout = really_input_string ic len in
101
-
Sys.remove tmp;
102
104
Ok stdout
103
105
| exit -> Error (strf "%s: exited with %d" exec exit)
104
106
with