This commit is contained in:
Simon Cruanes 2017-12-29 18:35:27 +01:00
parent d415f8ed20
commit 38b670ebc0

View file

@ -197,10 +197,10 @@ let check () =
let main () = let main () =
(* Administrative duties *) (* Administrative duties *)
Arg.parse argspec input_file usage; Arg.parse argspec input_file usage;
if !file = "" then begin if !file = "" then (
Arg.usage argspec usage; Arg.usage argspec usage;
exit 2 exit 2
end; );
let al = Gc.create_alarm check in let al = Gc.create_alarm check in
(* Interesting stuff happening *) (* Interesting stuff happening *)