From d549bc88413c1310f06c34bdce55e32529373200 Mon Sep 17 00:00:00 2001 From: Piotr Stachyra Date: Wed, 20 Mar 2019 15:56:51 +0100 Subject: [PATCH] Fix typo in HttpBridgeSpec test --- test/integration/Cardano/NetworkLayer/HttpBridgeSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)