From 3ee04cc42d0506641c4d8c6b2266972c20522811 Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 18 Aug 2009 07:08:44 +0000 Subject: fix the unicode encoding problem with the cc command --- src/GFI.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GFI.hs') diff --git a/src/GFI.hs b/src/GFI.hs index f183d043c..5093884d9 100644 --- a/src/GFI.hs +++ b/src/GFI.hs @@ -16,6 +16,7 @@ import GF.Infra.Option import GF.System.Readline import GF.Text.Coding +import GF.Compile.Coding import PGF import PGF.Data @@ -106,10 +107,10 @@ loop opts gfenv0 = do pOpts style q ("-qual" :ws) = pOpts style Qualified ws pOpts style q ws = (style,q,unwords ws) - (style,q,s) = pOpts TermPrintDefault Qualified ws + (style,q,s) = pOpts TermPrintDefault Qualified (tail (words s0)) case runP pExp (BS.pack s) of Left (_,msg) -> putStrLn msg - Right t -> case checkTerm sgr t >>= computeTerm sgr of + Right t -> case checkTerm sgr (codeTerm (decode gfenv) t) >>= computeTerm sgr of Ok x -> putStrLn $ enc (showTerm style q x) Bad s -> putStrLn $ enc s loopNewCPU gfenv -- cgit v1.2.3