gameServer/NetRoutines.hs
branchqmlfrontend
changeset 11611 99966b4a6e1e
parent 11561 af9aa8d5863c
child 11860 ad435d95ca4b
equal deleted inserted replaced
11549:b69f5f22a3ba 11611:99966b4a6e1e
    79                     newEventsInfo
    79                     newEventsInfo
    80                     newEventsInfo
    80                     newEventsInfo
    81                     newEventsInfo
    81                     newEventsInfo
    82                     0
    82                     0
    83                     []
    83                     []
       
    84                     []
    84                     )
    85                     )
    85 
    86 
    86         writeChan chan $ Accept newClient
    87         writeChan chan $ Accept newClient
    87         return ()
    88         return ()