mirror of
https://github.com/c-cube/linol.git
synced 2025-12-10 05:04:00 -05:00
7fbc187548
git-subtree-dir: thirdparty/lsp git-subtree-split: aae6986391a8519de3da6a7a341f2bd3376e0d2f
21 lines
578 B
OCaml
21 lines
578 B
OCaml
val json_t : Ml.Type.t
|
|
val add_json_conv_for_t : Ml.Module.sig_ Ml.Module.t -> Ml.Module.sig_ Ml.Module.t
|
|
|
|
module Enum : sig
|
|
val conv
|
|
: allow_other:bool
|
|
-> poly:bool
|
|
-> (string * Ts_types.Literal.t) list Named.t
|
|
-> Ml.Expr.toplevel Named.t list
|
|
end
|
|
|
|
module Poly_variant : sig
|
|
val of_json : Ml.Type.constr list Named.t -> Ml.Expr.toplevel Named.t
|
|
val to_json : Ml.Type.constr list Named.t -> Ml.Expr.toplevel Named.t
|
|
end
|
|
|
|
val make_literal_wrapper_conv
|
|
: field_name:string
|
|
-> literal_value:string
|
|
-> type_name:string
|
|
-> Ml.Module.impl Named.t list
|