--- a/gameServer/CoreTypes.hs Wed May 22 00:12:15 2013 +0400
+++ b/gameServer/CoreTypes.hs Wed May 22 00:49:37 2013 +0400
@@ -75,6 +75,7 @@
| CheckRecord
| CheckFailed B.ByteString
| CheckSuccess [B.ByteString]
+ | Random [ClientChan] [B.ByteString]
type ClientChan = Chan [B.ByteString]