diff options
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/GrammarToCanon.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index 9cf8a519f..25ec623e8 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -192,6 +192,7 @@ redCType t = case t of App (Q (IC "Predef") (IC "Ints")) (EInt n) -> return $ G.TInts (toInteger n) Sort "Str" -> return $ G.TStr + Sort "Tok" -> return $ G.TStr _ -> prtBad "cannot reduce to canonical the type" t redCTerm :: Term -> Err G.Term |