Revision e2625797 src/Ganeti/Confd/Server.hs

b/src/Ganeti/Confd/Server.hs
224 224 
              mcfg <- readIORef cfgref
225 225 
              let response = respondInner mcfg hmac rq
226 226 
              _ <- S.sendTo socket response peer
227 
              logDebug $ "Response sent: " ++ response
227 228 
              return ()
228 229 
    Bad err -> logInfo $ "Failed to parse incoming message: " ++ err
229 230 
  return ()

Also available in: Unified diff