Originally, only queries used the be served by haskell daemons
over domain sockets. As they were not too frequest, it was OK
to log each of them at INFO level. However, with requests as
frequent as WaitForJobChange served via luxid, logs fill up
to quickly. So log at debug level only.

Signed-off-by: Klaus Aehlig <[email protected]>
---
 src/Ganeti/UDSServer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Ganeti/UDSServer.hs b/src/Ganeti/UDSServer.hs
index c5e0508..2d5c529 100644
--- a/src/Ganeti/UDSServer.hs
+++ b/src/Ganeti/UDSServer.hs
@@ -303,7 +303,7 @@ logMsg handler req (Bad err) =
 logMsg handler req (Ok result) = do
   -- only log the first 2,000 chars of the result
   logDebug $ "Result (truncated): " ++ take 2000 (J.encode result)
-  logInfo $ "Successfully handled " ++ hInputLogShort handler req
+  logDebug $ "Successfully handled " ++ hInputLogShort handler req
 
 -- | Prepares an outgoing message.
 prepareMsg
-- 
2.4.3.573.g4eafbef

Reply via email to