diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-06-05 07:33:42 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-06-05 07:33:42 +0000 |
| commit | 4803fb8052caba0421949c9d7768d44ec28d109d (patch) | |
| tree | 669ab3dcc40cca9a91cd9220c366677ce1db8bdb /src-3.0/GF/Compile | |
| parent | 0b1a157222e0f96b9c9d6f8cea98caf547c4bdf9 (diff) | |
use parser combinators to parse the shell commands. simplified CommandLine type
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) |