@@ -226,7 +226,7 @@ sucessSpec = beforeAll (startWaiApp server) $ afterAll endWaiApp $ do
226 C.responseBody response `shouldBe` body
226 C.responseBody response `shouldBe` body
227 C.responseStatus response `shouldBe` ok200
227 C.responseStatus response `shouldBe` ok200
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
230 let getRawFailure = getNth (Proxy :: Proxy 11) $ client api baseUrl manager
230 let getRawFailure = getNth (Proxy :: Proxy 11) $ client api baseUrl manager
231 res <- runExceptT (getRawFailure methodGet)
231 res <- runExceptT (getRawFailure methodGet)
232 case res of
232 case res of