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