Revision 3e0c2a24
b/src/Ganeti/Query/Server.hs | ||
---|---|---|
175 | 175 |
return . Bad $ |
176 | 176 |
GenericError ("Luxi call '" ++ strOfOp op ++ "' not implemented") |
177 | 177 |
|
178 |
|
|
179 | 178 |
-- | Given a decoded luxi request, executes it and sends the luxi |
180 | 179 |
-- response back to the client. |
181 | 180 |
handleClientMsg :: Client -> ConfigReader -> LuxiOp -> IO Bool |
... | ... | |
186 | 185 |
(!status, !rval) <- |
187 | 186 |
case call_result of |
188 | 187 |
Bad err -> do |
189 |
logWarning $ "Failed to execute request: " ++ show err |
|
188 |
logWarning $ "Failed to execute request " ++ show args ++ ": " |
|
189 |
++ show err |
|
190 | 190 |
return (False, showJSON err) |
191 | 191 |
Ok result -> do |
192 | 192 |
-- only log the first 2,000 chars of the result |
193 | 193 |
logDebug $ "Result (truncated): " ++ take 2000 (J.encode result) |
194 |
logInfo $ "Successfully handled " ++ strOfOp args |
|
194 | 195 |
return (True, result) |
195 | 196 |
sendMsg client $ buildResponse status rval |
196 | 197 |
return True |
Also available in: Unified diff