Commit 5752c4cc authored by Guillaume Melquiond's avatar Guillaume Melquiond

Use arity-1 exceptions in ocaml extraction (bug #20619).

parent 1c011548
......@@ -1069,7 +1069,7 @@ module Print = struct
fprintf fmt "exception %a@\n@\n" (print_uident info) xs
| Dexn (xs, Some ty) ->
fprintf fmt "@[<hov 2>exception %a of %a@]@\n@\n"
(print_uident info) xs (print_ty info) ty
(print_uident info) xs (print_ty ~paren:true info) ty
end
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment