fixup follow

cardano-foundation · Jun 16, 2020 · 345de18 · 345de18
1 parent 89fecd6
commit 345de18
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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'