Revision cb44e3db src/Ganeti/Query/Server.hs
b/src/Ganeti/Query/Server.hs | ||
---|---|---|
214 | 214 |
Ok args -> handleClientMsg client creader args |
215 | 215 |
|
216 | 216 |
-- | Main client loop: runs one loop of 'handleClient', and if that |
217 |
-- doesn't repot a finished (closed) connection, restarts itself. |
|
217 |
-- doesn't report a finished (closed) connection, restarts itself.
|
|
218 | 218 |
clientLoop :: Client -> ConfigReader -> IO () |
219 | 219 |
clientLoop client creader = do |
220 | 220 |
result <- handleClient client creader |
Also available in: Unified diff