diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-11-09 22:05:43 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-11-09 22:05:43 +0000 |
| commit | d3e12952432b84337ff55fb85e461dc17c962f74 (patch) | |
| tree | 8522d862f12fc7a46853fcb71041ae50499a0b13 /src/GF/Compile | |
| parent | 2fc97fa6fa30ac5dc031a588d26399fd38f42d9b (diff) | |
lookup with more information
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 |