mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-09 20:55:39 -05:00
detail
This commit is contained in:
parent
b2e646343a
commit
585bf6bd50
1 changed files with 2 additions and 2 deletions
|
|
@ -198,10 +198,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 *)
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue