balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Return proper error message in ocp-resto/client

Browse Source
This commit is contained in:
Sebastien Mondet 2019-02-14 11:22:52 -05:00
parent 27c5bc86c0
commit fd2c043a5d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
vendors/ocplib-resto/lib_resto-cohttp/client.ml vendored
View File

@ -219,7 +219,7 @@ module Make (Encoding : Resto.ENCODING) = struct
else else
Lwt.return (`Error (ansbody, media_name, media)) Lwt.return (`Error (ansbody, media_name, media))
| `Bad_request -> | `Bad_request ->
Cohttp_lwt.Body.to_string body >>= fun body -> Cohttp_lwt.Body.to_string ansbody >>= fun body ->
Lwt.return (`Bad_request body) Lwt.return (`Bad_request body)
| `Method_not_allowed -> | `Method_not_allowed ->
let allowed = Cohttp.Header.get_multi headers "accept" in let allowed = Cohttp.Header.get_multi headers "accept" in
@ -227,7 +227,7 @@ module Make (Encoding : Resto.ENCODING) = struct
| `Unsupported_media_type -> | `Unsupported_media_type ->
Lwt.return `Unsupported_media_type Lwt.return `Unsupported_media_type
| `Not_acceptable -> | `Not_acceptable ->
Cohttp_lwt.Body.to_string body >>= fun body -> Cohttp_lwt.Body.to_string ansbody >>= fun body ->
Lwt.return (`Not_acceptable body) Lwt.return (`Not_acceptable body)
| code -> | code ->
Lwt.return Lwt.return