Module Ketrew_error (.ml)

module Ketrew_error: sig .. end

val log_client_error : [< `Http of
            [< `Call of [< Cohttp.Code.meth ] * Uri.t
             | `Cleanable_targets of 'a
             | `Kill_targets of string list
             | `Restart_targets of string list
             | `Target_query of string * 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 'b * string ] ->
       Ketrew_pervasives.Log.t

val to_string : [< `Client of
            [< `Http of
                 [< `Call of [< Cohttp.Code.meth ] * Uri.t
                  | `Cleanable_targets of 'a
                  | `Kill_targets of string list
                  | `Restart_targets of string list
                  | `Target_query of string * 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 'b * string ]
        | `Configuration of [< `Parsing of string ]
        | `Database of Trakeva.Error.t
        | `Database_unavailable of string
        | `Deserialization of exn * string
        | `Dyn_plugin of [< `Dynlink_error of Dynlink.error | `Findlib of exn ]
        | `Failed_to_kill of string
        | `Failure of string
        | `Host of
            [< `Execution of
                 < host : string; message : string; stderr : string option;
                   stdout : string option; .. >
             | `Non_zero of string * int
             | `Ssh_failure of
                 [< `Wrong_log of string
                  | `Wrong_status of Ketrew_unix_process.Exit_code.t ] *
                 string
             | `System of [< `Sleep of float ] * [< `Exn of exn ]
             | `Timeout of float
             | `Unix_exec of string ]
        | `IO of
            [< `Exn of exn
             | `File_exists of string
             | `Read_file_exn of string * exn
             | `Write_file_exn of string * exn
             | `Wrong_path of string ]
        | `Long_running_failed_to_start of string * string
        | `Missing_data of string
        | `Not_implemented of string
        | `Process of
            [< `Exec of string * string list ] *
            [< `Exn of exn | `Non_zero of string ]
        | `Server_status_error of string
        | `Shell of
            string *
            [< `Exited of int | `Exn of exn | `Signaled of int | `Stopped of int ]
        | `Start_server_error of string
        | `Stop_server_error of string
        | `System of
            [< `Copy of string
             | `File_info of string
             | `File_tree of string
             | `List_directory of string
             | `Make_directory of string
             | `Make_symlink of string * string
             | `Move of string
             | `Remove of string ] *
            [< `Already_exists
             | `Exn of exn
             | `File_exists of string
             | `File_not_found of string
             | `IO of
                 [< `Exn of exn
                  | `File_exists of string
                  | `Read_file_exn of string * exn
                  | `Write_file_exn of string * exn
                  | `Wrong_path of string ]
             | `Not_a_directory of string
             | `Wrong_access_rights of int
             | `Wrong_file_kind of string * Ketrew_unix_io.System.file_info
             | `Wrong_path of string ]
        | `Target of [< `Deserilization of string ]
        | `Volume of [< `No_size of SmartPrint.t ]
        | `Wrong_command_line of string list
        | `Wrong_configuration of
            [< `Found of string ] * [< `Exn of exn | `Expected of string ]
        | `Wrong_http_request of string * string ] ->
       string