Module Email_or_phone.Almost

type t
val of_json : Deriving_Json_lexer.lexbuf -> t
val to_json : Buffer.t -> t -> unit
val json : t Deriving_Json.t
type y = [
  1. | `Email
  2. | `Phone
  3. | `Almost_phone
  4. | `Almost_email
  5. | `Invalid
]
val y_of_json_with_tag : Deriving_Json_lexer.lexbuf -> [ `NCst of int | `Cst of int ] -> y
val y_recognize : [ `NCst of int | `Cst of int ] -> bool
val y_of_json : Deriving_Json_lexer.lexbuf -> y
val y_to_json : Buffer.t -> y -> unit
val y_json : y Deriving_Json.t
val y : t -> y
val to_string : t -> string
val of_string : only_mail:bool -> string -> t