From a7900bfbc8e95053b161c6c1d50ada9c7859029a Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 22 May 2009 21:47:32 +0000
Subject: fix the handling of wildcards

---
 src/GF/Source/GrammarToSource.hs | 1 -
 1 file changed, 1 deletion(-)

(limited to 'src/GF/Source')

diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs
index e15193550..cff23f426 100644
--- a/src/GF/Source/GrammarToSource.hs
+++ b/src/GF/Source/GrammarToSource.hs
@@ -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)
-- 
cgit v1.2.3