gameServer/NetRoutines.hs
branchqmlfrontend
changeset 11481 caa1e84c3ac2
parent 11467 f2c36df8c7b1
child 11556 af9aa8d5863c
equal deleted inserted replaced
11480:b0c34402038c 11481:caa1e84c3ac2
    70                     False
    70                     False
    71                     False
    71                     False
    72                     False
    72                     False
    73                     False
    73                     False
    74                     False
    74                     False
       
    75                     False
       
    76                     False
    75                     Nothing
    77                     Nothing
    76                     Nothing
    78                     Nothing
    77                     newEventsInfo
    79                     newEventsInfo
    78                     newEventsInfo
    80                     newEventsInfo
    79                     newEventsInfo
    81                     newEventsInfo
    80                     0
    82                     0
       
    83                     []
    81                     )
    84                     )
    82 
    85 
    83         writeChan chan $ Accept newClient
    86         writeChan chan $ Accept newClient
    84         return ()
    87         return ()