From 4803fb8052caba0421949c9d7768d44ec28d109d Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Thu, 5 Jun 2008 07:33:42 +0000 Subject: use parser combinators to parse the shell commands. simplified CommandLine type --- src-3.0/GF/Compile/GrammarToGFCC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src-3.0/GF/Compile') 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) -- cgit v1.2.3