equal
deleted
inserted
replaced
75 let mclients = (clientsFunc clients) |
75 let mclients = (clientsFunc clients) |
76 let mclient = fromMaybe client $ find (== client) mclients |
76 let mclient = fromMaybe client $ find (== client) mclients |
77 |
77 |
78 clientsIn <- sendAnswers answers mclient mclients mrooms |
78 clientsIn <- sendAnswers answers mclient mclients mrooms |
79 |
79 |
80 when ((isDedicated globalOptions) || (not $ null clientsIn)) $ mainLoop servSock acceptChan clientsIn mrooms |
80 let hadRooms = (not $ null rooms) && (null mrooms) |
|
81 in unless ((not $ isDedicated globalOptions) && ((null clientsIn) || hadRooms)) $ |
|
82 mainLoop servSock acceptChan clientsIn mrooms |
81 |
83 |
82 |
84 |
83 startServer serverSocket = do |
85 startServer serverSocket = do |
84 acceptChan <- atomically newTChan |
86 acceptChan <- atomically newTChan |
85 forkIO $ acceptLoop serverSocket acceptChan |
87 forkIO $ acceptLoop serverSocket acceptChan |