diff options
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/extraction/common.ml | 1 | ||||
| -rw-r--r-- | plugins/extraction/haskell.ml | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml index 742dca612a..29da12de40 100644 --- a/plugins/extraction/common.ml +++ b/plugins/extraction/common.ml @@ -678,6 +678,7 @@ let check_extract_string () = try let string_type = match lang () with | Ocaml -> "string" + | Haskell -> "Prelude.String" | _ -> raise Not_found in String.equal (find_custom @@ string_type_ref ()) string_type diff --git a/plugins/extraction/haskell.ml b/plugins/extraction/haskell.ml index bde37bcae7..eef050efbd 100644 --- a/plugins/extraction/haskell.ml +++ b/plugins/extraction/haskell.ml @@ -171,6 +171,7 @@ let rec pp_expr par env args = assert (List.is_empty args); begin match a with | _ when is_native_char c -> pp_native_char c + | _ when is_native_string c -> pp_native_string c | [] -> pp_global Cons r | [a] -> pp_par par (pp_global Cons r ++ spc () ++ pp_expr true env [] a) |