diff --git a/src/Ganeti/Monitoring/Server.hs b/src/Ganeti/Monitoring/Server.hs
index 9a9af404fe7bd2f7412ebf54254fa99c4642b89c..1f311e1f377d93019199157235b05c313e827433 100644
--- a/src/Ganeti/Monitoring/Server.hs
+++ b/src/Ganeti/Monitoring/Server.hs
@@ -139,7 +139,9 @@ reportHandler =
 
 -- | Return the report of all the available collectors.
 allReports :: Snap ()
-allReports = writeText "TODO: return the reports of all the collectors"
+allReports = do
+  reports <- mapM (liftIO . dReport) collectors
+  writeBS . pack . J.encode $ reports
 
 -- | Returns a category given its name.
 -- If "collector" is given as the name, the collector has no category, and