--- a/gameServer/Utils.hs	Sat Feb 05 15:45:44 2011 +0100
+++ b/gameServer/Utils.hs	Sat Feb 05 23:15:22 2011 +0300
@@ -107,11 +107,11 @@
             (37, "0.9.15"),
             (38, "0.9.16-dev")]
 
-askFromConsole :: String -> IO String
+askFromConsole :: B.ByteString -> IO B.ByteString
 askFromConsole msg = do
-    putStr msg
+    B.putStr msg
     hFlush stdout
-    getLine
+    B.getLine
 
 
 unfoldrE :: (b -> Either b (a, b)) -> b -> ([a], b)