From e87d75ebed028cc637d9d4056c0b5f163fa7a946 Mon Sep 17 00:00:00 2001
From: Denis Shevchenko <denis.shevchenko@iohk.io>
Date: Mon, 22 Jun 2020 11:55:03 +0400
Subject: [PATCH] CAD-1262: Remove 'Forks created' metric.

---
 cardano-node/src/Cardano/Node/TUI/LiveView.hs | 11 --------
 cardano-node/src/Cardano/Tracing/Tracers.hs   | 25 +++----------------
 2 files changed, 3 insertions(+), 33 deletions(-)

diff --git a/cardano-node/src/Cardano/Node/TUI/LiveView.hs b/cardano-node/src/Cardano/Node/TUI/LiveView.hs
index b6ac38b54d1..eb4925d7cde 100644
--- a/cardano-node/src/Cardano/Node/TUI/LiveView.hs
+++ b/cardano-node/src/Cardano/Node/TUI/LiveView.hs
@@ -132,7 +132,6 @@ data LiveViewState blk a = LiveViewState
     , lvsNodeCannotLead       :: !Word64
     , lvsLeaderNum            :: !Word64
     , lvsSlotsMissedNum       :: !Word64
-    , lvsCreatedForksNum      :: !Word64
     , lvsTransactions         :: !Word64
     , lvsPeersConnected       :: !Word64
     , lvsMempool              :: !Word64
@@ -412,13 +411,6 @@ instance IsEffectuator (LiveViewBackend blk) Text where
 
                                 return $ lvs { lvsSlotsMissedNum = fromIntegral missedSlotsNum }
 
-                    LogValue "forksCreatedNum" (PureI createdForksNum) ->
-                        modifyMVar_ (getbe lvbe) $ \lvs -> do
-
-                                checkForUnexpectedThunks ["forksCreatedNum LiveViewBackend"] lvs
-
-                                return $ lvs { lvsCreatedForksNum = fromIntegral createdForksNum }
-
                     _ -> pure ()
 
                 checkForUnexpectedThunks ["Cardano node metrics dispatch LiveViewBackend"] lvbe
@@ -512,7 +504,6 @@ initLiveViewState = do
                 , lvsNodeCannotLead         = 0
                 , lvsLeaderNum              = 0
                 , lvsSlotsMissedNum         = 0
-                , lvsCreatedForksNum        = 0
                 , lvsTransactions           = 0
                 , lvsPeersConnected         = 0
                 , lvsMempool                = 0
@@ -949,7 +940,6 @@ nodeInfoLabels =
            ,                    txt "slots lead:"
            ,                    txt "slots missed:"
            ,                    txt "cannot lead:"
-           ,                    txt "forks created:"
            , padTop (T.Pad 1) $ txt "TXs processed:"
            , padTop (T.Pad 1) $ txt "peers:"
            ]
@@ -970,7 +960,6 @@ nodeInfoValues lvs =
            ,                    str (show . lvsLeaderNum $ lvs)
            ,                    str (show . lvsSlotsMissedNum $ lvs)
            ,                    str (show . lvsNodeCannotLead $ lvs)
-           ,                    str (show . lvsCreatedForksNum $ lvs)
            , padTop (T.Pad 1) $ str (show . lvsTransactions $ lvs)
            , padTop (T.Pad 1) $ str (show . lvsPeersConnected $ lvs)
            ]
diff --git a/cardano-node/src/Cardano/Tracing/Tracers.hs b/cardano-node/src/Cardano/Tracing/Tracers.hs
index 8c84e34f739..cbbf9f974cb 100644
--- a/cardano-node/src/Cardano/Tracing/Tracers.hs
+++ b/cardano-node/src/Cardano/Tracing/Tracers.hs
@@ -245,11 +245,10 @@ data BlockchainCounters = BlockchainCounters
   , bcNodeCannotLeadNum      :: !Word64
   , bcNodeIsLeaderNum        :: !Word64
   , bcSlotsMissedNum         :: !Word64
-  , bcForksCreatedNum        :: !Word64
   }
 
 initialBlockchainCounters :: BlockchainCounters
-initialBlockchainCounters = BlockchainCounters 0 0 0 0 0 0
+initialBlockchainCounters = BlockchainCounters 0 0 0 0 0
 
 -- | Smart constructor of 'NodeTraces'.
 --
@@ -294,7 +293,7 @@ mkTracers protoInfo traceConf' tracer bcCounters = do
       let tVerb = traceVerbosity traceConf
       in pure Tracers
                 { chainDBTracer = tracerOnOff' (traceChainDB traceConf) $
-                    annotateSeverity . teeTraceChainTip traceConf' bcCounters elidedChainDB $ appendName "ChainDB" tracer
+                    annotateSeverity . teeTraceChainTip traceConf' elidedChainDB $ appendName "ChainDB" tracer
                 , consensusTracers
                     = mkConsensusTracers' protoInfo elidedFetchDecision blockForgeOutcomeExtractor forgeTracers tracer (TracingOn traceConf) bcCounters
                 , nodeToClientTracers = nodeToClientTracers' (TracingOn traceConf) tracer
@@ -336,17 +335,15 @@ teeTraceChainTip
      , ToObject (Header blk)
      )
   => TraceOptions
-  -> IORef BlockchainCounters
   -> MVar (Maybe (WithSeverity (ChainDB.TraceEvent blk)), Integer)
   -> Trace IO Text
   -> Tracer IO (WithSeverity (ChainDB.TraceEvent blk))
-teeTraceChainTip tconf bChainCounters elided tr =
+teeTraceChainTip tconf elided tr =
   case tconf of
     TracingOff -> nullTracer
     TracingOn tSelect ->
       Tracer $ \ev -> do
        traceWith (teeTraceChainTip' tr) ev
-       traceWith (notifyForkIsCreated bChainCounters tr) ev
        traceWith (teeTraceChainTipElide (traceVerbosity tSelect) elided tr) ev
 
 teeTraceChainTipElide
@@ -390,22 +387,6 @@ teeTraceChainTip' tr =
             _ -> pure ()
           _ -> pure ()
 
-notifyForkIsCreated
-  :: IORef BlockchainCounters
-  -> Trace IO Text
-  -> Tracer IO (WithSeverity (ChainDB.TraceEvent blk))
-notifyForkIsCreated bcCounters tr =
-    Tracer $ \(WithSeverity _ ev') ->
-      case ev' of
-          ChainDB.TraceAddBlockEvent ev -> case ev of
-              ChainDB.SwitchedToAFork {} -> do
-                  updatesForksCreated <- atomicModifyIORef' bcCounters (\cnts -> let nc = bcForksCreatedNum cnts + 1
-                                                                                 in (cnts { bcForksCreatedNum = nc }, nc)
-                                                                       )
-                  traceCounter "forksCreatedNum" updatesForksCreated tr
-              _ -> pure ()
-          _ -> pure ()
-
 --------------------------------------------------------------------------------
 -- Consensus Tracers
 --------------------------------------------------------------------------------