--- a/gameServer/ServerState.hs	Thu Jan 10 22:59:46 2013 +0400
+++ b/gameServer/ServerState.hs	Sat Jan 12 01:18:50 2013 +0400
@@ -49,6 +49,6 @@
 sameProtoClientsS p = liftM f allClientsS
     where
         f = filter (\c -> clientProto c == p)
-    
+
 io :: IO a -> StateT ServerState IO a
 io = liftIO