Revision 8f467ab0 src/Ganeti/Monitoring/Server.hs
| b/src/Ganeti/Monitoring/Server.hs | ||
|---|---|---|
| 176 | 176 |
-- | Return the report of one collector |
| 177 | 177 |
oneReport :: Snap () |
| 178 | 178 |
oneReport = do |
| 179 |
categoryName <- fmap (maybe mzero unpack) $ getParam "category"
|
|
| 180 |
collectorName <- fmap (maybe mzero unpack) $ getParam "collector"
|
|
| 179 |
categoryName <- maybe mzero unpack <$> getParam "category"
|
|
| 180 |
collectorName <- maybe mzero unpack <$> getParam "collector"
|
|
| 181 | 181 |
category <- |
| 182 | 182 |
case catFromName categoryName of |
| 183 | 183 |
BT.Ok cat -> return cat |
Also available in: Unified diff