Log RPC errors from inside executeRpcCall

[ganeti-local] / src / Ganeti / Rpc.hs

diff --git a/src/Ganeti/Rpc.hs b/src/Ganeti/Rpc.hs
index 5c3c8bb..d3503e8 100644 (file)
--- a/src/Ganeti/Rpc.hs
+++ b/src/Ganeti/Rpc.hs
@@ -231,7 +231,9 @@ executeRpcCall nodes call = do
                 Ok r -> return r
   -- now parse the replies
   let results'' = map (parseHttpReply call) results'
-  return $ zip nodes results''
+      pairedList = zip nodes results''
+  logRpcErrors pairedList
+  return pairedList
 
 -- | Helper function that is used to read dictionaries of values.
 sanitizeDictResults :: [(String, J.Result a)] -> ERpcError [(String, a)]