Smart_git.Endpoint
type t = private {
scheme : [ `SSH of string | `Git | `HTTP of (string * string) list | `HTTPS of (string * string) list | `Scheme of string ];
port : int option;
path : string;
hostname : string;
}
val pp : t Fmt.t
val of_string : string -> (t, [> `Msg of string ]) Stdlib.result
val with_headers_if_http : (string * string) list -> t -> t
with_headers_if_http hdrs edn if endpoint edn is `HTTP or `HTTPS adds hdrs to edn
with_headers_if_http hdrs edn
edn
`HTTP
`HTTPS
hdrs
val to_ctx : t -> Mimic.ctx -> Mimic.ctx