fix the unicode encoding problem with the cc command

1 files changed, 3 insertions, 2 deletions

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