sig
type 'a dictionary
type 'a tag
type 'a prefix
val tag_name : 'a Data.Enum.tag -> string
val dictionary : unit -> 'a Data.Enum.dictionary
val tag :
name:string ->
?label:Markdown.text ->
descr:Markdown.text ->
?value:'a -> 'a Data.Enum.dictionary -> 'a Data.Enum.tag
val add :
name:string ->
?label:Markdown.text ->
descr:Markdown.text -> ?value:'a -> 'a Data.Enum.dictionary -> unit
val find : 'a Data.Enum.dictionary -> 'a Data.Enum.tag -> 'a
val lookup : 'a Data.Enum.dictionary -> 'a -> 'a Data.Enum.tag
val find_tag : 'a Data.Enum.dictionary -> string -> 'a Data.Enum.tag
val prefix :
name:string ->
?var:string ->
?label:Markdown.text ->
descr:Markdown.text -> 'a Data.Enum.dictionary -> 'a Data.Enum.prefix
val instance : 'a Data.Enum.prefix -> string -> 'a Data.Enum.tag
val extends :
name:string ->
?label:Markdown.text ->
descr:Markdown.text ->
?value:'a -> 'a Data.Enum.prefix -> 'a Data.Enum.tag
val tags : 'a Data.Enum.dictionary -> Data.Tag.t list
val set_lookup :
'a Data.Enum.dictionary -> ('a -> 'a Data.Enum.tag) -> unit
val publish :
package:Package.package ->
name:string ->
descr:Markdown.text ->
'a Data.Enum.dictionary -> (module Data.S with type t = 'a)
end