Revision cb44e3db

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