Clean-up snapshot tracing display code

IntersectMBO · Dec 9, 2024 · 74c9ac4 · 74c9ac4
1 parent 44356ea
commit 74c9ac4
Showing 1 changed file with 18 additions and 6 deletions.
diff --git a/cardano-node/src/Cardano/Node/Tracing/Tracers/ChainDB.hs b/cardano-node/src/Cardano/Node/Tracing/Tracers/ChainDB.hs
@@ -1507,15 +1507,27 @@ instance ( StandardHash blk
          , ConvertRawHash blk)
          => LogFormatting (LedgerDB.TraceSnapshotEvent blk) where
   forHuman (LedgerDB.TookSnapshot snap pt RisingEdge) =
-      "Taking ledger snapshot " <> showT snap <>
-        " at " <> renderRealPointAsPhrase pt
+    Text.intercalate " " [ "Taking ledger snapshot"
+                         , showT snap
+                         , "at"
+                         , renderRealPointAsPhrase pt
+                         ]
   forHuman (LedgerDB.TookSnapshot snap pt (FallingEdgeWith t)) =
-      "Took ledger snapshot " <> showT snap <>
-        " at " <> renderRealPointAsPhrase pt <> ", duration: " <> showT t
+    Text.intercalate " " [ "Took ledger snapshot"
+                         , showT snap
+                         , "at"
+                         , renderRealPointAsPhrase pt
+                         , ", duration:"
+                         , showT t
+                         ]
   forHuman (LedgerDB.DeletedSnapshot snap) =
-      "Deleted old snapshot " <> showT snap
+    Text.intercalate " " ["Deleted old snapshot", showT snap]
   forHuman (LedgerDB.InvalidSnapshot snap failure) =
-      "Invalid snapshot " <> showT snap <> showT failure <> context
+    Text.intercalate " " [ "Invalid snapshot"
+                         , showT snap
+                         , showT failure
+                         , context
+                         ]
     where
       context = case failure of
         LedgerDB.InitFailureRead{} ->