diff --git a/htools/Ganeti/Confd/Server.hs b/htools/Ganeti/Confd/Server.hs index b4b13854f7ea294188e6a6e17a90fdd14c0ab4b3..a05d3501b9a273f56a24fb9ac2ff036c5f775d65 100644 --- a/htools/Ganeti/Confd/Server.hs +++ b/htools/Ganeti/Confd/Server.hs @@ -60,6 +60,7 @@ import Ganeti.Logging import qualified Ganeti.Constants as C import qualified Ganeti.Path as Path import Ganeti.Query.Server (prepQueryD, runQueryD) +import Ganeti.Utils -- * Types and constants definitions @@ -467,7 +468,7 @@ responder cfgref socket hmac msg peer = do ctime <- getCurrentTime case parseMessage hmac msg ctime of Ok (origmsg, rq) -> do - logDebug $ "Processing request: " ++ origmsg + logDebug $ "Processing request: " ++ rStripSpace origmsg mcfg <- readIORef cfgref let response = respondInner mcfg hmac rq _ <- S.sendTo socket response peer