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/Grammar/Refresh.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/GF/Grammar/Refresh.hs') diff --git a/src/GF/Grammar/Refresh.hs b/src/GF/Grammar/Refresh.hs index 045fccfc0..8be951215 100644 --- 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 -- cgit v1.2.3