diff -r f4c51ab8f46d -r 5fb3bb2de9d2 gameServer/CoreTypes.hs --- 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 =