Revised status messages.

functionally · Jan 15, 2024 · fe0ab4f · fe0ab4f
1 parent 2b1ee2a
commit fe0ab4f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/marlowe-ici.cabal b/marlowe-ici.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               marlowe-ici
-version:            0.2.0.1
+version:            0.2.0.2
 synopsis:           An IPFS chain index for Marlowe.
 license:            Apache-2.0
 license-file:       LICENSE

diff --git a/src/Language/Marlowe/ICI/Indexer.hs b/src/Language/Marlowe/ICI/Indexer.hs
@@ -98,7 +98,7 @@ outputIndex ipnsKey chunkSize report header =
           either (hPutStrLn stderr . ("Slot " <>) . (slotNo' <>) . (": " <>))
             . const
             . hPutStrLn stderr
-            $ "Slot " <> slotNo' <> ": " <> show (length newCids') <> " CIDs"
+            $ "Slot " <> slotNo' <> ": " <> show (length newCids') <> " new CIDs"
         rootCbor =
           mconcat
             [ encodeMapLen 5
@@ -125,7 +125,7 @@ outputIndex ipnsKey chunkSize report header =
             >>= either
               (hPrint stderr . ("Slot " <>) . (slotNo' <>) . (": " <>))
               ( const . hPutStrLn stderr $
-                  "Slot " <> slotNo' <> ": published " <> show (length newCids') <> " CIDs at /ipfs/" <> show rootCid
+                  "Slot " <> slotNo' <> ": published " <> show (length newCids') <> " new CIDs at /ipfs/" <> show rootCid
               )
         else
           unless (null newCids') $