diff options
Diffstat (limited to 'src/GF/Devel')
| -rw-r--r-- | src/GF/Devel/CheckGrammar.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |