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