fix the handling of wildcards

This commit is contained in:
krasimir
2009-05-22 21:47:32 +00:00
parent d2f2922102
commit 640a388253
6 changed files with 9 additions and 7 deletions

View File

@@ -182,7 +182,6 @@ trt trm = case trm of
trp :: Patt -> P.Patt
trp p = case p of
PW -> P.PW
PV s | isWildIdent s -> P.PW
PV s -> P.PV $ tri s
PC c [] -> P.PCon $ tri c
PC c a -> P.PC (tri c) (map trp a)