@@ -252,7 +252,7 @@ instance
252252 (MimeUnrender ct a) => HasClient (Post (ct ': cts) a) where
253253 type Client (Post (ct ': cts) a) = EitherT ServantError IO a
254254 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
256256
257257-- | If you have a 'Post xs ()' endpoint, the client expects a 204 No Content
258258-- HTTP header.
@@ -275,7 +275,7 @@ instance
275275 ) => HasClient (Post (ct ': cts) (Headers ls a)) where
276276 type Client (Post (ct ': cts) (Headers ls a)) = EitherT ServantError IO (Headers ls a)
277277 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
279279 return $ Headers { getResponse = resp
280280 , getHeadersHList = buildHeadersTo hdrs
281281 }