diff options
| author | letouzey | 2003-01-22 02:41:10 +0000 |
|---|---|---|
| committer | letouzey | 2003-01-22 02:41:10 +0000 |
| commit | 5794aee035554ba6de9b0f2ac1ab4a711a9faed8 (patch) | |
| tree | 5f5f1dffc91951bc2df5354cc1ac51ccddf3c1ec | |
| parent | 0feaa81ec82d3f9ba489a6dc6bf8293907d8c6d0 (diff) | |
petit bug pp haskell
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3571 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 ()) |