Replace scotty with servant

2026-09-25 11:48:42 +03:00
parent 9c47bbcb42
commit 05bd609c7e
5 changed files with 118 additions and 60 deletions
@@ -115,7 +115,7 @@ defaultMain = withSocketsDo $ do
          [ ("reader", readerAction host 8123 token ents bus)
          , ("writer", writerAction writerLimiter bus)
          , ("metrics", HomeAssistant.Runtime.Metrics.metricsAction store rrdPath rrdtool)
-          , ("metrics-http", HomeAssistant.Runtime.Graphing.graphAction rrdPath rrdtool metricsPort)
+          , ("metrics-http", HomeAssistant.Runtime.Graphing.servantGraphAction rrdPath rrdtool metricsPort)
          ] ++ [ (name, runController rootPath bus c) | c@(Controller True name _) <- active ]
    runKatipContextT (busLogEnv bus) () mempty $
      mapConcurrently_ (uncurry supervised) workers