Merge pull request #803 from input-output-hk/plt-9294-marlowe-indexer…

…-crash-when-syncing-from-genesis Plt 9294 marlowe indexer crash when syncing from genesis
input-output-hk · Jan 18, 2024 · beb77f5 · beb77f5
2 parents 8b4c9b8 + 85d65b9
commit beb77f5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/...118_112759_jhbertra_plt_9294_marlowe_indexer_crash_when_syncing_from_genesis.md b/...118_112759_jhbertra_plt_9294_marlowe_indexer_crash_when_syncing_from_genesis.md
@@ -0,0 +1,3 @@
+### Fixed
+
+- Marlowe Indexer can crash when chain indexer is syncing from Genesis.
diff --git a/marlowe-runtime/indexer/Language/Marlowe/Runtime/Indexer/ChainSeekClient.hs b/marlowe-runtime/indexer/Language/Marlowe/Runtime/Indexer/ChainSeekClient.hs
@@ -268,7 +268,9 @@ chainSeekClient = component "indexer-chain-seek-client" \ChainSeekClientDependen
                     pure (point, marloweBlock)
 
                 -- Emit the marlowe blocks in a roll forward event to a downstream consumer.
-                emit $ RollForward (catMaybes blocks') tip
+                case catMaybes blocks' of
+                  [] -> pure ()
+                  blocks'' -> emit $ RollForward blocks'' tip
 
                 -- Loop back into the main synchronization loop with an updated
                 -- rollback state.
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		### Fixed

		- Marlowe Indexer can crash when chain indexer is syncing from Genesis.