Revision 6327828e src/Ganeti/Monitoring/Server.hs
b/src/Ganeti/Monitoring/Server.hs | ||
---|---|---|
139 | 139 |
|
140 | 140 |
-- | Return the report of all the available collectors. |
141 | 141 |
allReports :: Snap () |
142 |
allReports = writeText "TODO: return the reports of all the collectors" |
|
142 |
allReports = do |
|
143 |
reports <- mapM (liftIO . dReport) collectors |
|
144 |
writeBS . pack . J.encode $ reports |
|
143 | 145 |
|
144 | 146 |
-- | Returns a category given its name. |
145 | 147 |
-- If "collector" is given as the name, the collector has no category, and |
Also available in: Unified diff