tori/iganaq
tori/iganaq
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add status code to spec and use it on every exit

Browse source
This commit is contained in:
Juno Takano 2025-04-13 16:38:25 -03:00
commit 95277a6b65
3 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ocaml/bin/main.ml
View file

@ -2,5 +2,6 @@ let () =
match Array.to_list Sys.argv with
| _ :: tail ->
let future = (Tori.Parsers.Argument.interpret Tori.Schema.seed tail) in
if future.output.message <> "" then print_endline future.output.message
if future.output.message <> "" then print_endline future.output.message;
exit future.meta.status
| [] -> assert false