From d9594e24b43a24362c61b6edc2e1bbda7aa6aa4e Mon Sep 17 00:00:00 2001 From: "Julian K. Arni" Date: Sun, 11 Oct 2015 21:47:31 +0200 Subject: [PATCH] Rebase fix. --- servant-client/test/Servant/ClientSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-client/test/Servant/ClientSpec.hs b/servant-client/test/Servant/ClientSpec.hs index 3441cea6..04e69d31 100644 --- a/servant-client/test/Servant/ClientSpec.hs +++ b/servant-client/test/Servant/ClientSpec.hs @@ -226,7 +226,7 @@ sucessSpec = beforeAll (startWaiApp server) $ afterAll endWaiApp $ do C.responseBody response `shouldBe` body C.responseStatus response `shouldBe` ok200 - it "Servant.API.Raw should return a Left in case of failure" $ do + it "Servant.API.Raw should return a Left in case of failure" $ \(_, baseUrl) -> do let getRawFailure = getNth (Proxy :: Proxy 11) $ client api baseUrl manager res <- runExceptT (getRawFailure methodGet) case res of