regular expression patterns

This commit is contained in:
aarne
2006-01-07 14:39:40 +00:00
parent 4e42d73ee5
commit d133e0353c
16 changed files with 170 additions and 135 deletions

View File

@@ -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)