From d3e12952432b84337ff55fb85e461dc17c962f74 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 9 Nov 2006 22:05:43 +0000 Subject: lookup with more information --- src/GF/Compile/GrammarToCanon.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/GF/Compile') 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 -- cgit v1.2.3