Messages.Tag
val hash : t -> int
val pp : Stdlib.Format.formatter -> t -> unit
val should_warn : t -> bool
val to_yojson :
t ->
[> `Assoc of
(string * [> `Int of int | `List of [> `String of string ] list ]) list ]
val of_yojson :
[> `Assoc of (string * [> `Int of int | `List of Yojson__Safe.t list ]) list ] ->
(t, string) Stdlib.Result.t