Revision 385d4574

b/src/Ganeti/Query/Server.hs
203 203 
handleClient :: Client -> ConfigReader -> IO Bool
204 204 
handleClient client creader = do
205 205 
  !msg <- recvMsgExt client
206 
  logDebug $ "Received message: " ++ show msg
206 207 
  case msg of
207 208 
    RecvConnClosed -> logDebug "Connection closed" >> return False
208 209 
    RecvError err -> logWarning ("Error during message receiving: " ++ err) >>

Also available in: Unified diff