@@ -151,6 +151,7 @@ startServer orig fn_in = do tid <- runIO $ forkOS serverLoop
151151
152152 loop fn ist sock
153153 = do (h,_,_) <- accept sock
154+ hSetEncoding h utf8
154155 cmd <- hGetLine h
155156 (ist', fn) <- processNetCmd orig ist h fn cmd
156157 hClose h
@@ -189,6 +190,7 @@ processNetCmd orig i h fn cmd
189190runClient :: String -> IO ()
190191runClient str = withSocketsDo $ do
191192 h <- connectTo "localhost" (PortNumber 4294)
193+ hSetEncoding h utf8
192194 hPutStrLn h str
193195 resp <- hGetResp "" h
194196 putStr resp