Commit 270f47d0 authored by Guillaume Melquiond's avatar Guillaume Melquiond
Browse files

Add parentheses around complex type arguments when extracting to ocaml (bug #20670).

parent 4397bfd4
......@@ -798,7 +798,7 @@ module Print = struct
print_lident info fmt ts
| Tapp (ts, [ty]) ->
fprintf fmt (protect_on paren "%a@ %a")
(print_ty info) ty (print_lident info) ts
(print_ty ~paren:true info) ty (print_lident info) ts
| Tapp (ts, tl) ->
fprintf fmt (protect_on paren "(%a)@ %a")
(print_list comma (print_ty info)) tl
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