--- a/gameServer/NetRoutines.hs	Tue Feb 19 22:03:33 2013 +0400
+++ b/gameServer/NetRoutines.hs	Wed Feb 20 22:54:16 2013 +0400
@@ -47,6 +47,7 @@
                     Nothing
                     Nothing
                     0
+                    []
                     )
 
         writeChan chan $ Accept newClient