diff options
Diffstat (limited to 'checker/checker.ml')
| -rw-r--r-- | checker/checker.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index fd13cc195..f43a03f4a 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -342,12 +342,9 @@ let parse_args argv = try parse (List.tl (Array.to_list argv)) with - | UserError(_,s) as e -> begin - try - Stream.empty s; exit 1 - with Stream.Failure -> - fatal_error (explain_exn e) - end + | UserError(_, s) as e -> + if Pp.is_empty s then exit 1 + else fatal_error (explain_exn e) | e -> begin fatal_error (explain_exn e) end |