--- a/gameServer/CoreTypes.hs	Thu Mar 20 22:14:30 2014 +0400
+++ b/gameServer/CoreTypes.hs	Sun Mar 23 23:35:33 2014 +0400
@@ -81,6 +81,7 @@
     | RegisterEvent Event
     | SaveRoom B.ByteString
     | LoadRoom B.ByteString
+    | ReactCmd [B.ByteString]
 
 
 data Event = LobbyChatMessage
@@ -91,7 +92,7 @@
 
 newEventsInfo :: EventsInfo
 newEventsInfo = []   
-    
+
 type ClientChan = Chan [B.ByteString]
 
 data CheckInfo =