From 48895581378353743e51bae6cbbe60bf31b7b8e3 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 1 Feb 2008 22:01:10 +0000
Subject: added some new pattern forms, incl. pattern macros, to testgf3

---
 src/GF/Devel/Grammar/PatternMatch.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/GF/Devel/Grammar/PatternMatch.hs')

diff --git a/src/GF/Devel/Grammar/PatternMatch.hs b/src/GF/Devel/Grammar/PatternMatch.hs
index 076aaa25a..ec64d7802 100644
--- a/src/GF/Devel/Grammar/PatternMatch.hs
+++ b/src/GF/Devel/Grammar/PatternMatch.hs
@@ -114,6 +114,10 @@ tryMatch (p,t) = do
            [1..n]) t' | n <- [0 .. length s]
         ] >>
         return []
+
+      (PChar,  ([],K [_], [])) -> return []
+      (PChars cs, ([],K [c], [])) | elem c cs -> return []
+
       _ -> prtBad "no match in case expr for" t
 
 eqStrIdent = (==) ----  
-- 
cgit v1.2.3