diff options
Diffstat (limited to 'src-3.0/GF/Compile')
| -rw-r--r-- | src-3.0/GF/Compile/GrammarToGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Compile/GrammarToGFCC.hs b/src-3.0/GF/Compile/GrammarToGFCC.hs index 637f40ed8..61502663d 100644 --- a/src-3.0/GF/Compile/GrammarToGFCC.hs +++ b/src-3.0/GF/Compile/GrammarToGFCC.hs @@ -128,7 +128,7 @@ mkExp t = case t of EInt i -> C.EInt i EFloat f -> C.EFloat f K s -> C.EStr s - Meta (MetaSymb i) -> C.EMeta (toInteger i) + Meta (MetaSymb i) -> C.EMeta i _ -> C.EMeta 0 mkPatt p = case p of A.PP _ c ps -> C.EApp (i2i c) (map mkPatt ps) |