Rebase fix.
commitd9594e24b43a24362c61b6edc2e1bbda7aa6aa4e
authorJulian K. Arni <jkarni@gmail.com>
dateSun 11 Oct 2015, 21:47 (11 years ago)
parented3f2f1
servant-client/test/Servant/ClientSpec.hs+1−1
@@ -226,7 +226,7 @@ sucessSpec = beforeAll (startWaiApp server) $ afterAll endWaiApp $ do
226226 C.responseBody response `shouldBe` body
227227 C.responseStatus response `shouldBe` ok200
228228
229− it "Servant.API.Raw should return a Left in case of failure" $ do
229+ it "Servant.API.Raw should return a Left in case of failure" $ \(_, baseUrl) -> do
230230 let getRawFailure = getNth (Proxy :: Proxy 11) $ client api baseUrl manager
231231 res <- runExceptT (getRawFailure methodGet)
232232 case res of