Even more debugging

input-output-hk · May 6, 2024 · e987486 · e987486
1 parent 97c8b4e
commit e987486
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/plugins/backend-ekg/src/Cardano/BM/Backend/Prometheus.lhs b/plugins/backend-ekg/src/Cardano/BM/Backend/Prometheus.lhs
@@ -33,6 +33,8 @@ import           Snap.Http.Server (Config, ConfigLog (..), defaultConfig, setAcc
 import           System.Metrics (Value (..), sampleAll)
 import qualified System.Remote.Monitoring as EKG
 
+import           Debug.Trace
+
 \end{code}
 %endif
 
@@ -96,11 +98,12 @@ spawnPrometheus ekg host port prometheusOutput = Async.async $
         [ case sv of
             Counter c -> renderNamedValue sk (int64Dec c)
             Gauge g -> renderNamedValue sk (int64Dec g)
-            Label l -> if isFloat l
+            Label l -> trace ("renderSamples " <> l) $
+                        if isFloat l
                          then renderNamedValue sk (byteString $ encodeUtf8 l)
                          else if "{" `T.isPrefixOf` l
                             then renderLabel sk l
-                            else trace ("renderSamples " <> l) lmempty
+                            else trace ("renderSamples " <> l) mempty
             _ -> mempty
         | (sk,sv) <- samples ]