/stats endpoint

config/routes

@@ -61,3 +61,5 @@
 /blog BlogHomeR GET
 /blog/#Year/#Month/#Text BlogPostR GET
 /blog/feed BlogFeedR GET
+
+/stats StatsR GET

src/Application.hs

@@ -69,6 +69,7 @@ import Handler.Snapshots
 import Handler.StackageHome
 import Handler.StackageIndex
 import Handler.StackageSdist
+import Handler.Stats
 import Handler.System
 
 --import Network.Wai.Middleware.Prometheus (prometheus)

src/Handler/Stats.hs

@@ -0,0 +1,7 @@
+module Handler.Stats (getStatsR) where
+
+import GHC.Stats
+import Import
+
+getStatsR :: Handler String
+getStatsR = liftIO $ show <$> getRTSStats