From d133e0353ca614b36357dadb782aea43de895e09 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 7 Jan 2006 14:39:40 +0000 Subject: regular expression patterns --- src/GF/Source/SourceToGrammar.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF/Source/SourceToGrammar.hs') diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs index 6465b6fc9..ffba51d6e 100644 --- a/src/GF/Source/SourceToGrammar.hs +++ b/src/GF/Source/SourceToGrammar.hs @@ -559,7 +559,8 @@ transPatt x = case x of PDisj p1 p2 -> liftM2 G.PAlt (transPatt p1) (transPatt p2) PSeq p1 p2 -> liftM2 G.PSeq (transPatt p1) (transPatt p2) PRep p -> liftM G.PRep (transPatt p) - PAs x p -> liftM2 G.PAs (transIdent x) (transPatt p) + PNeg p -> liftM G.PNeg (transPatt p) + PAs x p -> liftM2 G.PAs (transIdent x) (transPatt p) -- cgit v1.2.3