--- a/gameServer/CoreTypes.hs	Sun Apr 21 01:36:08 2013 +0200
+++ b/gameServer/CoreTypes.hs	Wed May 29 22:52:37 2013 +0400
@@ -75,6 +75,7 @@
     | CheckRecord
     | CheckFailed B.ByteString
     | CheckSuccess [B.ByteString]
+    | Random [ClientChan] [B.ByteString]
 
 type ClientChan = Chan [B.ByteString]