From 31836c0da9ba7a716ee0480e6219d771da4999fa Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 23 Mar 2004 12:06:12 +0000
Subject: String pattern handling

---
 src/GF/Compile/CheckGrammar.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs
index 46d75c744..6e8abc02d 100644
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -416,6 +416,8 @@ inferLType gr trm = case trm of
      PP _ _ ps -> True --- all isConstPatt ps
      PR ps -> all (isConstPatt . snd) ps
      PT _ p -> isConstPatt p
+     PString _ -> True
+     PInt _ -> True
      _ -> False
 
    inferPatt p = case p of
-- 
cgit v1.2.3