diff --git a/lib/core/src/Cardano/Wallet/Network.hs b/lib/core/src/Cardano/Wallet/Network.hs index fdd17cb2331..0269b03414e 100644 --- a/lib/core/src/Cardano/Wallet/Network.hs +++ b/lib/core/src/Cardano/Wallet/Network.hs @@ -391,7 +391,7 @@ follow nl tr cps yield header = -- initiates the protocol by asking clients to rollback to the last -- known intersection. case (cursorSlotId nl cursor', cps) of - (sl, []) -> + (_, []) -> step delay0 cursor' (sl, _:_) | sl == slotId (last cps) -> step delay0 cursor'