Clean-up snapshot tracing display code

Remember that `Text.unwords` exists
IntersectMBO · Dec 12, 2024 · 0417d03 · 0417d03
1 parent 44356ea
commit 0417d03
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.unwords [ "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.unwords [ "Took ledger snapshot"
+                 , showT snap
+                 , "at"
+                 , renderRealPointAsPhrase pt
+                 , ", duration:"
+                 , showT t
+                 ]
   forHuman (LedgerDB.DeletedSnapshot snap) =
-      "Deleted old snapshot " <> showT snap
+    Text.unwords ["Deleted old snapshot", showT snap]
   forHuman (LedgerDB.InvalidSnapshot snap failure) =
-      "Invalid snapshot " <> showT snap <> showT failure <> context
+    Text.unwords [ "Invalid snapshot"
+                 , showT snap
+                 , showT failure
+                 , context
+                 ]
     where
       context = case failure of
         LedgerDB.InitFailureRead{} ->