79     | ShowReplay B.ByteString

    79     | ShowReplay B.ByteString

    80     | Cleanup

    80     | Cleanup

    81     | RegisterEvent Event

    81     | RegisterEvent Event

    82     | SaveRoom B.ByteString

    82     | SaveRoom B.ByteString

    83     | LoadRoom B.ByteString

    83     | LoadRoom B.ByteString

    84 

    85 

    85 

    86 

    86 data Event = LobbyChatMessage

    87 data Event = LobbyChatMessage

    87            | EngineMessage

    88            | EngineMessage

    88            | RoomJoin

    89            | RoomJoin

    89 

    90 

    90 type EventsInfo = [(Int, UTCTime)]

    91 type EventsInfo = [(Int, UTCTime)]

    91 

    92 

    92 newEventsInfo :: EventsInfo

    93 newEventsInfo :: EventsInfo

    93 newEventsInfo = []   

    94 newEventsInfo = []   

    95 type ClientChan = Chan [B.ByteString]

    96 type ClientChan = Chan [B.ByteString]

    96 

    97 

    97 data CheckInfo =

    98 data CheckInfo =

    98     CheckInfo

    99     CheckInfo

    99     {

   100     {