cardano-node: Using serverMetricStore for EKG

IntersectMBO · Oct 13, 2021 · 713ec7b · 713ec7b
1 parent 09d2a27
commit 713ec7b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cardano-node/src/Cardano/Node/Run.hs b/cardano-node/src/Cardano/Node/Run.hs
@@ -32,7 +32,7 @@ import           Network.Socket (AddrInfo, Socket)
 import           System.Directory (canonicalizePath, createDirectoryIfMissing,
                      makeAbsolute)
 import           System.Environment (lookupEnv)
-import qualified System.Metrics as EKG
+import qualified System.Remote.Monitoring as EKG
 
 #ifdef UNIX
 import           System.Posix.Files
@@ -150,7 +150,7 @@ runNode cmdPc = do
 
     -- New logging initialisation
     let ekgServer' = ekgServer (llEKGDirect loggingLayer)
-    ekgStore <- EKG.newStore
+    let ekgStore = EKG.serverMetricStore ekgServer'
     loggerConfiguration <-
       case getLast $ pncConfigFile cmdPc of
         Just fileName -> NL.readConfiguration (unConfigPath fileName)
@@ -160,7 +160,7 @@ runNode cmdPc = do
     forwardSink <- withIOManager $ \iomgr ->
                         NL.initForwarding iomgr loggerConfiguration ekgStore nodeInfo
     let forwardTrace = NL.forwardTracer forwardSink
-    ekgTrace   <- NL.ekgTracer (Right ekgServer')
+    ekgTrace   <- NL.ekgTracer (Left ekgStore)
     -- End new logging initialisation
 
     !trace <- setupTrace loggingLayer