--- a/gameServer/CoreTypes.hs	Sun Jan 12 11:07:49 2014 +0400
+++ b/gameServer/CoreTypes.hs	Sun Jan 12 15:15:59 2014 +0400
@@ -16,7 +16,6 @@
 -----------------------
 import RoomsAndClients
 
-
 #if __GLASGOW_HASKELL__ < 706
 instance NFData B.ByteString
 #endif
@@ -78,6 +77,7 @@
     | Random [ClientChan] [B.ByteString]
     | QueryReplay B.ByteString
     | ShowReplay B.ByteString
+    | Cleanup
 
 type ClientChan = Chan [B.ByteString]