diff options
| author | letouzey | 2006-04-20 09:57:01 +0000 |
|---|---|---|
| committer | letouzey | 2006-04-20 09:57:01 +0000 |
| commit | 2ff58aa2c8592a5ce56815e10c8477f481ab25fd (patch) | |
| tree | 38aeeb28a6ef5131fb65286b4dedc23d23cc54ac /contrib/extraction/haskell.ml | |
| parent | c5d686f2abee4f7d6376cfbdbc2d49c42c423c17 (diff) | |
decoration des Tdummy pour pouvoir tuer tous les args de types (cf MapAVL.empty)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8724 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/haskell.ml')
| -rw-r--r-- | contrib/extraction/haskell.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/haskell.ml b/contrib/extraction/haskell.ml index c6e708cb92..15270bbf2a 100644 --- a/contrib/extraction/haskell.ml +++ b/contrib/extraction/haskell.ml @@ -106,7 +106,7 @@ let rec pp_type par vl t = | Tarr (t1,t2) -> pp_par par (pp_rec true t1 ++ spc () ++ str "->" ++ spc () ++ pp_rec false t2) - | Tdummy -> str "()" + | Tdummy _ -> str "()" | Tunknown -> str "()" | Taxiom -> str "() -- AXIOM TO BE REALIZED\n" in |