Revision 3e0c2a24 src/Ganeti/Query/Server.hs
| 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