gameServer/NetRoutines.hs
changeset 4986 33fe91b2bcbf
parent 4932 f11d80bac7ed
child 4987 cf9470964dba
equal deleted inserted replaced
4985:304d149bb3dd 4986:33fe91b2bcbf
    41                     lobbyId
    41                     lobbyId
    42                     0
    42                     0
    43                     False
    43                     False
    44                     False
    44                     False
    45                     False
    45                     False
    46                     undefined
    46                     Nothing
    47                     undefined
    47                     undefined
    48                     )
    48                     )
    49 
    49 
    50         writeChan chan $ Accept newClient
    50         writeChan chan $ Accept newClient
    51         return ()
    51         return ()