Skip to content
This repository was archived by the owner on Jun 15, 2023. It is now read-only.

Commit 3f93b1a

Browse files
committed
Fix over-annotation of exceptions.
1 parent f9fe2fc commit 3f93b1a

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

cli/res_cli.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -281,11 +281,11 @@ module CliArgProcessor = struct
281281
in
282282
printEngine.printImplementation
283283
~width ~filename ~comments:parseResult.comments parsetree
284-
[@@raises Invalid_argument, Failure, exit]
284+
[@@raises exit]
285285
end
286286

287287

288-
let [@raises Invalid_argument, Failure, exit] () =
288+
let [@raises exit] () =
289289
if not !Sys.interactive then begin
290290
ResClflags.parse ();
291291
CliArgProcessor.processFile

0 commit comments

Comments
 (0)