From d5500498736ff9cdce7d23e336357742c5799825 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 4 Jan 2008 15:54:40 +0000 Subject: finalizing experiments with Finnish nouns --- 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 81ac891ad..b33d11017 100644 --- a/src/GF/Compile/CheckGrammar.hs +++ b/src/GF/Compile/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 @@ -626,6 +627,7 @@ inferLType gr trm = case trm of PNeg p -> inferPatt p PAlt p q -> checks [inferPatt p, inferPatt q] PSeq _ _ -> return $ typeStr + PChar -> return $ typeStr PRep _ -> return $ typeStr _ -> infer (patt2term p) >>= return . snd -- cgit v1.2.3