sig
type t
val system : Switch.t
val defaults : Switch.t list
val of_string : string -> Switch.t
val to_string : Switch.t -> string
val equal : Switch.t -> Switch.t -> bool
val json : Switch.t Jsont.codec
val pp : Switch.t Fmt.t
end