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