servant-client 0.4.4.4 → 0.4.4.5

raw patch · 2 files changed

+3/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• servant-client.cabal +1/−1
• src/Servant/Client.hs +2/−2

@@ -1,5 +1,5 @@ name:                servant-client-version:             0.4.4.4+version:             0.4.4.5 synopsis: automatical derivation of querying functions for servant webservices description:   This library lets you derive automatically Haskell functions that

@@ -252,7 +252,7 @@   (MimeUnrender ct a) => HasClient (Post (ct ': cts) a) where   type Client (Post (ct ': cts) a) = EitherT ServantError IO a   clientWithRoute Proxy req baseurl =-    snd <$> performRequestCT (Proxy :: Proxy ct) H.methodPost req [200,201] baseurl+    snd <$> performRequestCT (Proxy :: Proxy ct) H.methodPost req [200, 201, 202] baseurl  -- | If you have a 'Post xs ()' endpoint, the client expects a 204 No Content -- HTTP header.@@ -275,7 +275,7 @@   ) => HasClient (Post (ct ': cts) (Headers ls a)) where   type Client (Post (ct ': cts) (Headers ls a)) = EitherT ServantError IO (Headers ls a)   clientWithRoute Proxy req baseurl = do-    (hdrs, resp) <- performRequestCT (Proxy :: Proxy ct) H.methodPost req [200, 201] baseurl+    (hdrs, resp) <- performRequestCT (Proxy :: Proxy ct) H.methodPost req [200, 201, 202] baseurl     return $ Headers { getResponse = resp                      , getHeadersHList = buildHeadersTo hdrs                      }