diff --git a/test/integration/Cardano/NetworkLayer/HttpBridgeSpec.hs b/test/integration/Cardano/NetworkLayer/HttpBridgeSpec.hs index 7796d6a2bd8..00fcb5fb93f 100644 --- a/test/integration/Cardano/NetworkLayer/HttpBridgeSpec.hs +++ b/test/integration/Cardano/NetworkLayer/HttpBridgeSpec.hs @@ -66,7 +66,7 @@ spec = do (\bs -> length bs >= 4 && length bs <= 5) action `shouldReturn` pure () - it "produce no blocks if start if after tip" $ \(_, network) -> do + it "produce no blocks if start is after tip" $ \(_, network) -> do let action = runExceptT $ do tip <- (slotId . snd) <$> networkTip network length <$> nextBlocks network (succ $ succ tip)