--- a/gameServer/Actions.hs	Mon Aug 13 23:04:42 2012 +0400
+++ b/gameServer/Actions.hs	Mon Aug 13 23:17:09 2012 +0400
@@ -469,9 +469,9 @@
 
 processAction BanList = do
     ch <- client's sendChan
-    bans <- gets (bans . serverInfo)
+    bans <- gets (B.pack . unlines . map show . bans . serverInfo)
     processAction $
-        AnswerClients [ch] ["BANLIST", B.pack $ show bans]
+        AnswerClients [ch] ["BANLIST", bans]