mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-09 12:45:48 -05:00
detail
This commit is contained in:
parent
d415f8ed20
commit
38b670ebc0
1 changed files with 2 additions and 2 deletions
|
|
@ -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 *)
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue