error: remove unused constructor '`None'

This commit is contained in:
Robur 2021-10-04 14:36:32 +00:00
parent 3436722505
commit a5af696428

View file

@ -10,7 +10,6 @@ type error = [
| `Rpid_hash_mismatch of Cstruct.t * Cstruct.t | `Rpid_hash_mismatch of Cstruct.t * Cstruct.t
| `Missing_credential_data | `Missing_credential_data
| `Msg of string | `Msg of string
| `None
] ]
let pp_error ppf = function let pp_error ppf = function
@ -30,7 +29,6 @@ let pp_error ppf = function
Fmt.pf ppf "rpid hash mismatch: expected %a received %a" Cstruct.hexdump_pp should Cstruct.hexdump_pp is Fmt.pf ppf "rpid hash mismatch: expected %a received %a" Cstruct.hexdump_pp should Cstruct.hexdump_pp is
| `Missing_credential_data -> Fmt.string ppf "missing credential data" | `Missing_credential_data -> Fmt.string ppf "missing credential data"
| `Msg msg -> Fmt.pf ppf "error %s" msg | `Msg msg -> Fmt.pf ppf "error %s" msg
| `None -> Fmt.string ppf "error none"
type t = { type t = {
origin : string; origin : string;