From ca280d8d31bd00f9ce19782d0a4761654d04a1c3 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 12 Aug 2004 18:29:35 +0000
Subject: (non)utf8 input in GUI

---
 src/GF/Shell/JGF.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Shell/JGF.hs')

diff --git a/src/GF/Shell/JGF.hs b/src/GF/Shell/JGF.hs
index 44b6aad2b..f1ed6bfb7 100644
--- a/src/GF/Shell/JGF.hs
+++ b/src/GF/Shell/JGF.hs
@@ -29,7 +29,7 @@ sessionLineJ isNew env = do
 ---- the Boolean is a temporary hack to have two parallel GUIs
 editLoopJnewX :: Bool -> CEnv -> SState -> IO ()
 editLoopJnewX isNew env state = do
-  c <- getCommandUTF
+  c <- getCommandUTF (isCEnvUTF8 env state) ----
   case c of
     CQuit -> return ()
 
-- 
cgit v1.2.3