From d133e0353ca614b36357dadb782aea43de895e09 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 7 Jan 2006 14:39:40 +0000
Subject: regular expression patterns

---
 src/GF/Source/GrammarToSource.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Source/GrammarToSource.hs')

diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs
index 3303a6487..526a29f4c 100644
--- a/src/GF/Source/GrammarToSource.hs
+++ b/src/GF/Source/GrammarToSource.hs
@@ -202,6 +202,7 @@ trp p = case p of
     PAlt p q -> P.PDisj (trp p) (trp q)
     PSeq p q -> P.PSeq (trp p) (trp q)
     PRep p   -> P.PRep (trp p)
+    PNeg p   -> P.PNeg (trp p)
 
 
 trAssign (lab, (mty, t)) = maybe (P.LDDef x t') (\ty -> P.LDFull x (trt ty) t') mty
-- 
cgit v1.2.3