gundeck: Reintroduce http metrics for public endpoints

Broken during servantification: #2769

Author: akshaymankar

services/gundeck/src/Gundeck/Run.hs

@@ -28,6 +28,7 @@ import Control.Lens ((.~), (^.))
 import Control.Monad.Extra
 import Data.Metrics.AWS (gaugeTokenRemaing)
 import Data.Metrics.Middleware.Prometheus (waiPrometheusMiddleware)
+import Data.Metrics.Servant (servantPlusWAIPrometheusMiddleware)
 import Data.Proxy (Proxy (Proxy))
 import Data.Text (unpack)
 import Database.Redis qualified as Redis
@@ -84,7 +85,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