From d5500498736ff9cdce7d23e336357742c5799825 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 4 Jan 2008 15:54:40 +0000
Subject: finalizing experiments with Finnish nouns

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

(limited to 'src/GF/Devel')

diff --git a/src/GF/Devel/CheckGrammar.hs b/src/GF/Devel/CheckGrammar.hs
index 9502bbec1..4ad308366 100644
--- a/src/GF/Devel/CheckGrammar.hs
+++ b/src/GF/Devel/CheckGrammar.hs
@@ -613,6 +613,7 @@ inferLType gr trm = case trm of
      PString _ -> True
      PInt _ -> True
      PFloat _ -> True
+     PChar -> True
      PSeq p q -> isConstPatt p && isConstPatt q
      PAlt p q -> isConstPatt p && isConstPatt q
      PRep p -> isConstPatt p
@@ -627,6 +628,7 @@ inferLType gr trm = case trm of
      PAlt p q -> checks [inferPatt p, inferPatt q]
      PSeq _ _ -> return $ typeStr
      PRep _   -> return $ typeStr
+     PChar    -> return $ typeStr
      _ -> infer (patt2term p) >>= return . snd
 
 
-- 
cgit v1.2.3