sig
type t =
[ `Http of
[ `Call of [ `GET | `POST ] * Uri.t
| `Target_query of Ketrew_pervasives.Unique_id.t * string
| `Targets ] *
[ `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 ]
val log : Ketrew_client.Error.t -> Ketrew_pervasives.Log.t
end