From a7900bfbc8e95053b161c6c1d50ada9c7859029a Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 22 May 2009 21:47:32 +0000 Subject: fix the handling of wildcards --- src/GF/Grammar/Printer.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/GF/Grammar/Printer.hs') diff --git a/src/GF/Grammar/Printer.hs b/src/GF/Grammar/Printer.hs index b658cc9d1..383d36d4f 100644 --- a/src/GF/Grammar/Printer.hs +++ b/src/GF/Grammar/Printer.hs @@ -218,6 +218,7 @@ ppPatt q d (PChar) = char '?' ppPatt q d (PChars s) = brackets (text (show s)) ppPatt q d (PMacro id) = char '#' <> ppIdent id ppPatt q d (PM m id) = char '#' <> ppIdent m <> char '.' <> ppIdent id +ppPatt q d PW = char '_' ppPatt q d (PV id) = ppIdent id ppPatt q d (PInt n) = integer n ppPatt q d (PFloat f) = double f @@ -269,6 +270,8 @@ getAbs e = ([],e) getCTable :: Term -> ([Ident], Term) getCTable (T TRaw [(PV v,e)]) = let (vs,e') = getCTable e in (v:vs,e') +getCTable (T TRaw [(PW, e)]) = let (vs,e') = getCTable e + in (identW:vs,e') getCTable e = ([],e) getLet :: Term -> ([LocalDef], Term) -- cgit v1.2.3