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/Compile/Rename.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/GF/Compile/Rename.hs') diff --git a/src/GF/Compile/Rename.hs b/src/GF/Compile/Rename.hs index 61f26b89e..ecabf03b1 100644 --- a/src/GF/Compile/Rename.hs +++ b/src/GF/Compile/Rename.hs @@ -255,6 +255,10 @@ renamePattern env patt = case patt of (p',vs) <- renp p return (PRep p', vs) + PNeg p -> do + (p',vs) <- renp p + return (PNeg p', vs) + PAs x p -> do (p',vs) <- renp p return (PAs x p', x:vs) -- cgit v1.2.3