From: Klaus Aehlig <aehlig@google.com>
Date: Wed, 10 Jul 2013 14:58:10 +0000 (+0200)
Subject: Log received message at debug level
X-Git-Tag: v2.8.0rc1~40
X-Git-Url: https://code.grnet.gr/git/ganeti-local/commitdiff_plain/385d4574da52964a4588552dda2f3d28414d3f0f

Log received message at debug level

At debug level, we can well afford to have a detailed entry
for each message received by a server.

Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Helga Velroyen <helgav@google.com>
---

diff --git a/src/Ganeti/Query/Server.hs b/src/Ganeti/Query/Server.hs
index 3c8d8a9..66cf255 100644
--- a/src/Ganeti/Query/Server.hs
+++ b/src/Ganeti/Query/Server.hs
@@ -203,6 +203,7 @@ handleClientMsg client creader args = do
 handleClient :: Client -> ConfigReader -> IO Bool
 handleClient client creader = do
   !msg <- recvMsgExt client
+  logDebug $ "Received message: " ++ show msg
   case msg of
     RecvConnClosed -> logDebug "Connection closed" >> return False
     RecvError err -> logWarning ("Error during message receiving: " ++ err) >>