--- a/gameServer/HandlerUtils.hs	Sat Jun 05 20:49:51 2010 +0000
+++ b/gameServer/HandlerUtils.hs	Sun Jun 06 15:29:33 2010 +0000
@@ -1,6 +1,7 @@
 module HandlerUtils where
 
 import Control.Monad.Reader
+import qualified Data.ByteString.Char8 as B
 
 import RoomsAndClients
 import CoreTypes
@@ -11,7 +12,7 @@
     (ci, rnc) <- ask
     return $ rnc `client` ci
 
-clientNick :: Reader (ClientIndex, IRnC) String
+clientNick :: Reader (ClientIndex, IRnC) B.ByteString
 clientNick = liftM nick thisClient
 
 roomOthersChans :: Reader (ClientIndex, IRnC) [ClientChan]
@@ -25,5 +26,5 @@
     (ci, rnc) <- ask
     return $ [sendChan (rnc `client` ci)]
 
-answerClient :: [String] -> Reader (ClientIndex, IRnC) [Action]
+answerClient :: [B.ByteString] -> Reader (ClientIndex, IRnC) [Action]
 answerClient msg = thisClientChans >>= return . (: []) . flip AnswerClients msg