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

270f47d0 · Guillaume Melquiond · 4397bfd4 · 270f47d0
Commit 270f47d0 authored Aug 26, 2016 by Guillaume Melquiond
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/whyml/mlw_ocaml.ml src/whyml/mlw_ocaml.ml +1 -1

No files found.
--- a/src/whyml/mlw_ocaml.ml
+++ b/src/whyml/mlw_ocaml.ml
@@ -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