utf8 in editor

1 files changed, 2 insertions, 2 deletions

diff --git a/src/GF/Shell/CommandL.hs b/src/GF/Shell/CommandL.hs
index 0dc103e33..efb6460b4 100644
--- a/src/GF/Shell/CommandL.hs
+++ b/src/GF/Shell/CommandL.hs
@@ -76,12 +76,12 @@ getCommand = do
   s <- getLine
   return $ pCommand s
 
--- | decodes UTF8 if u==False, i.e. if the grammar does not use UTF8;
+-- | decodes UTF8 if u==True, i.e. if the grammar uses UTF8;
 -- used in the Java GUI, which always uses UTF8
 getCommandUTF :: Bool -> IO [(String,Command)]
 getCommandUTF u = do
   s <- getLine
-  return $ pCommandMsgs $ if u then s else decodeUTF8 s 
+  return $ pCommandMsgs $ if u then decodeUTF8 s else s
 
 pCommandMsgs :: String -> [(String,Command)]
 pCommandMsgs = map (pCommandMsg . unwords) . concatMap (chunks ";;" . words) . lines