equal
deleted
inserted
replaced
58 liftM firstAway $ |
58 liftM firstAway $ |
59 foldM processAction (0, serverInfo, clients, rooms) $ |
59 foldM processAction (0, serverInfo, clients, rooms) $ |
60 PingAll : [StatsAction | even tick] |
60 PingAll : [StatsAction | even tick] |
61 |
61 |
62 |
62 |
63 {- let hadRooms = (not $ null rooms) && (null mrooms) |
63 {- let hadRooms = (not $ null rooms) && (null mrooms) |
64 in unless ((not $ isDedicated serverInfo) && ((null clientsIn) || hadRooms)) $ |
64 in unless ((not $ isDedicated serverInfo) && ((null clientsIn) || hadRooms)) $ |
65 mainLoop serverInfo acceptChan messagesChan clientsIn mrooms -} |
65 mainLoop serverInfo acceptChan messagesChan clientsIn mrooms -} |
66 |
66 |
67 mainLoop newServerInfo mClients mRooms |
67 mainLoop newServerInfo mClients mRooms |
68 |
68 |