diff options
| author | letouzey | 2004-06-28 00:46:25 +0000 |
|---|---|---|
| committer | letouzey | 2004-06-28 00:46:25 +0000 |
| commit | ec7ec5f6a8a0fd0cf87d9fa5381fd626cd11afad (patch) | |
| tree | 22cbfb486919fb413b84b35e678a5e81cdec5f7d /contrib/extraction/haskell.ml | |
| parent | bc52b80149168032845160124a40b9fc8d147ce0 (diff) | |
Modules et Records: gros changements pour prendre en compte le nouveau mind_record
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5836 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/haskell.ml')
| -rw-r--r-- | contrib/extraction/haskell.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/extraction/haskell.ml b/contrib/extraction/haskell.ml index c55e89a516..12f7fbb1ac 100644 --- a/contrib/extraction/haskell.ml +++ b/contrib/extraction/haskell.ml @@ -125,16 +125,16 @@ let rec pp_expr par env args = spc () ++ hov 0 pp_a2))) | MLglob r -> apply (pp_global r) - | MLcons (r,[]) -> + | MLcons (_,r,[]) -> assert (args=[]); pp_global r - | MLcons (r,[a]) -> + | MLcons (_,r,[a]) -> assert (args=[]); pp_par par (pp_global r ++ spc () ++ pp_expr true env [] a) - | MLcons (r,args') -> + | MLcons (_,r,args') -> assert (args=[]); pp_par par (pp_global r ++ spc () ++ prlist_with_sep spc (pp_expr true env []) args') - | MLcase (t, pv) -> + | MLcase (_,t, pv) -> apply (pp_par par' (v 0 (str "case " ++ pp_expr false env [] t ++ str " of" ++ fnl () ++ str " " ++ pp_pat env pv))) |