lookup with more information

2006-11-09 22:05:43 +00:00
parent 2fc97fa6fa
commit d3e1295243
2 changed files with 18 additions and 11 deletions
--- 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