regular expression patterns

2006-01-07 14:39:40 +00:00
parent 4e42d73ee5
commit d133e0353c
16 changed files with 170 additions and 135 deletions
--- a/src/GF/Grammar/Refresh.hs
+++ b/src/GF/Grammar/Refresh.hs
@@ -77,6 +77,7 @@ refreshPatt p = case p of
  PSeq p' q' -> liftM2 PSeq    (refreshPatt p') (refreshPatt q')
  PAlt p' q' -> liftM2 PAlt    (refreshPatt p') (refreshPatt q')
  PRep p'    -> liftM  PRep    (refreshPatt p')
+  PNeg p'    -> liftM  PNeg    (refreshPatt p')

  _ -> return p