diff options
| -rw-r--r-- | compiler/Extract.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/Extract.ml b/compiler/Extract.ml index 8aee8c4f..de6c2fc8 100644 --- a/compiler/Extract.ml +++ b/compiler/Extract.ml @@ -1239,7 +1239,7 @@ let rec extract_ty (ctx : extraction_ctx) (fmt : F.formatter) | Assumed _ -> true | _ -> raise (Failure "Unreachable") in - if const_generics <> [] && print_tys then ( + if types <> [] && print_tys then ( let print_paren = List.length types > 1 in if print_paren then F.pp_print_string fmt "("; Collections.List.iter_link |