mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-25 08:08:47 +00:00
Set retcode on error properly
This commit is contained in:
parent
2f640fdc68
commit
52281261c4
2 changed files with 4 additions and 4 deletions
|
|
@ -205,7 +205,7 @@ let main =
|
|||
in
|
||||
List.iter (fun i -> Printf.printf "%d\n" i) output
|
||||
)
|
||||
| `Fail er -> Printf.eprintf "Error: %s\n" er
|
||||
| `Fail er -> Printf.eprintf "Error: %s\n" er; exit 255
|
||||
with
|
||||
| Language.Semantic_error msg -> Printf.printf "Error: %s\n" msg
|
||||
| Commandline_error msg -> Printf.printf "%s\n" msg
|
||||
| Language.Semantic_error msg -> Printf.printf "Error: %s\n" msg; exit 255
|
||||
| Commandline_error msg -> Printf.printf "%s\n" msg; exit 255
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue