struct
type t =
[ `Http of
[ `Call of [ `GET | `POST ] * Uri.t
| `Targets
| `Target_query of Ketrew_pervasives.Unique_id.t * string
] *
[ `Exn of exn
| `Json_parsing of string * [ `Exn of exn ]
| `Unexpected_message of Ketrew_protocol.Down_message.t
| `Wrong_json of Yojson.Safe.json
| `Wrong_response of Cohttp.Response.t * string ]
| `Server_error_response of
[ `Call of [ `GET | `POST ] * Uri.t ] * string ]
let log error_value =
Ketrew_error.log_client_error error_value
end