Module Name.Registrar

type 'context t
val create : kind:string -> current_file:string -> string_of_context:('context -> string option) -> 'context t
val register : kind:[ `Attribute | `Extension ] -> 'context t -> 'context -> string -> unit
val check_collisions : 'context t -> 'context -> string -> unit
val spellcheck : 'context t -> 'context -> ?allowlist:string list -> string -> string option
module Error : sig ... end
val raise_errorf : 'context t -> 'context -> ?allowlist:string list -> (string -> Ppxlib__.Location.Error.t, unit, string, Ppxlib__.Location.Error.t) format4 -> string Astlib.Location.loc -> 'a