equal
deleted
inserted
replaced
55 do |
55 do |
56 debugM "Clients" "Got info for dead client" |
56 debugM "Clients" "Got info for dead client" |
57 return (serverInfo, clients, rooms) |
57 return (serverInfo, clients, rooms) |
58 |
58 |
59 TimerAction -> |
59 TimerAction -> |
60 liftM firstAway $ processAction |
60 liftM firstAway $ |
61 (0, serverInfo, clients, rooms) |
61 foldM processAction (0, serverInfo, clients, rooms) |
62 PingAll |
62 [PingAll, StatsAction] |
63 |
63 |
64 |
64 |
65 {- let hadRooms = (not $ null rooms) && (null mrooms) |
65 {- let hadRooms = (not $ null rooms) && (null mrooms) |
66 in unless ((not $ isDedicated serverInfo) && ((null clientsIn) || hadRooms)) $ |
66 in unless ((not $ isDedicated serverInfo) && ((null clientsIn) || hadRooms)) $ |
67 mainLoop serverInfo acceptChan messagesChan clientsIn mrooms -} |
67 mainLoop serverInfo acceptChan messagesChan clientsIn mrooms -} |
68 |
68 |