correct formatting of copying-over-blockheader log output

Change-Id: I9ec9d34bd5e8955345f370547102734b7fa231fe
kadena-io · Jul 1, 2024 · addfb35 · addfb35
1 parent c4b67a9
commit addfb35
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Chainweb/Pact/Backend/CompactionInMemory.hs b/src/Chainweb/Pact/Backend/CompactionInMemory.hs
@@ -44,7 +44,7 @@ import Chainweb.Payload.PayloadStore.RocksDB (newPayloadDb)
 import Chainweb.Storage.Table (Iterator(..), Entry(..), withTableIterator, unCasify, tableInsert)
 import Chainweb.Pact.Backend.Types (SQLiteEnv)
 import Chainweb.Storage.Table.RocksDB (RocksDb, withRocksDb, withReadOnlyRocksDb, modernDefaultOptions)
-import Chainweb.Utils (sshow, fromText, int)
+import Chainweb.Utils (sshow, fromText, toText, int)
 import Chainweb.Version (ChainId, ChainwebVersion(..), chainIdToText, chainGraphAt)
 import Chainweb.Version.Mainnet (mainnet)
 import Chainweb.Version.Registry (lookupVersionByName)
@@ -805,7 +805,7 @@ trimRocksDb logger cwVersion cids minBlockHeight maxBlockHeight srcDb targetDb =
                 --
                 -- Not sure about the rank table, though. We keep it to be
                 -- conservative.
-                log' LL.Info $ "Copying over BlockHeader <> " <> sshow blockHash
+                log' LL.Info $ "Copying over BlockHeader " <> toText blockHash
                 tableInsert (_chainDbCas targetBlockHeaderDb) (RankedBlockHash blockHeight blockHash) rankedBlockHeader
                 tableInsert (_chainDbRankTable targetBlockHeaderDb) blockHash blockHeight