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