Merge pull request #338 from input-output-hk/jordan/show-instance-fol…

…dblockserror Add Show instance for FoldBlocksError
IntersectMBO · Oct 23, 2023 · 3fbcf3b · 3fbcf3b
2 parents 807342e + f483aa5
commit 3fbcf3b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/LedgerState.hs b/cardano-api/internal/Cardano/Api/LedgerState.hs
@@ -337,6 +337,7 @@ pattern LedgerStateConway st <- LedgerState  (Consensus.LedgerStateConway st)
 data FoldBlocksError
   = FoldBlocksInitialLedgerStateError InitialLedgerStateError
   | FoldBlocksApplyBlockError LedgerStateError
+  deriving Show
 
 renderFoldBlocksError :: FoldBlocksError -> Text
 renderFoldBlocksError fbe = case fbe of
@@ -438,6 +439,7 @@ foldBlocks nodeConfigFilePath socketPath validationMode state0 accumulate = do
     chainSyncClient :: Word32
                     -- ^ The maximum number of concurrent requests.
                     -> IORef a
+                    -- ^ State accumulator. Written to on every block.
                     -> IORef (Maybe LedgerStateError)
                     -- ^ Resulting error if any. Written to once on protocol
                     -- completion.