diff options
| -rw-r--r-- | contrib/extraction/haskell.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/contrib/extraction/haskell.ml b/contrib/extraction/haskell.ml index aac7f87781..6248bacc35 100644 --- a/contrib/extraction/haskell.ml +++ b/contrib/extraction/haskell.ml @@ -250,9 +250,8 @@ let pp_decl mp = let l = rename_tvars keywords l in let l' = List.rev l in hov 2 (str "type " ++ pp_global r ++ spc () ++ - prlist_with_sep (fun () -> (str " ")) pr_id l ++ - (if l <> [] then (str " ") else (mt ())) ++ str "=" ++ spc () ++ - pp_type false l' t ++ fnl () ++ fnl ()) + prlist (fun id -> pr_id id ++ str " ") l ++ + str "=" ++ spc () ++ pp_type false l' t) ++ fnl () ++ fnl () | Dfix (rv, defs,_) -> let ppv = Array.map pp_global rv in prlist_with_sep (fun () -> fnl () ++ fnl ()) |