cert-service/lib/wire_commands.ml
2020-12-09 20:28:07 +01:00

21 lines
298 B
OCaml

type version = [ `V1 ]
let pp_version ppf v =
Fmt.int ppf (match v with `V1 -> 1)
type header = {
version : version;
}
type t = [
| `Sign_request of X509.Signing_request.t
]
type res = [
| `Command of t
| `Sign of X509.Certificate.t
| `Failure of string
]
type wire = header * res