gundeck: Reintroduce http metrics for public endpoints

Broken during servantification: #2769
wireapp · Jul 9, 2024 · ad4f419 · ad4f419
1 parent 7cee02b
commit ad4f419
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/changelog.d/3-bug-fixes/gundeck-metrics b/changelog.d/3-bug-fixes/gundeck-metrics
@@ -0,0 +1 @@
+gundeck: Reintroduce http metrics for public endpoints
diff --git a/services/gundeck/src/Gundeck/Run.hs b/services/gundeck/src/Gundeck/Run.hs
@@ -27,7 +27,6 @@ import Control.Exception (finally)
 import Control.Lens ((.~), (^.))
 import Control.Monad.Extra
 import Data.Metrics.AWS (gaugeTokenRemaing)
-import Data.Metrics.Middleware.Prometheus (waiPrometheusMiddleware)
 import Data.Proxy (Proxy (Proxy))
 import Data.Text (unpack)
 import Database.Redis qualified as Redis
@@ -84,7 +83,7 @@ run o = do
     middleware e =
       versionMiddleware (foldMap expandVersionExp (o ^. settings . disabledAPIVersions))
         . requestIdMiddleware (e ^. applog) defaultRequestIdHeaderName
-        . waiPrometheusMiddleware sitemap
+        . servantPlusWAIPrometheusMiddleware sitemap (Proxy @CombinedAPI)
         . GZip.gunzip
         . GZip.gzip GZip.def
         . catchErrors (e ^. applog) defaultRequestIdHeaderName