eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rebase fix.

Browse Source
This commit is contained in:
Julian K. Arni 2015-10-11 21:47:31 +02:00
parent ed3f2f1811
commit d9594e24b4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
servant-client/test/Servant/ClientSpec.hs
View File

@ -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