Source file unit.ml

open! Import

module T = struct
  type t = unit [@@deriving_inline enumerate, globalize, hash, sexp, sexp_grammar]

  let all = ([ () ] : t list)
  let (globalize : t -> t) = (globalize_unit : t -> t)

  let (hash_fold_t : Ppx_hash_lib.Std.Hash.state -> t -> Ppx_hash_lib.Std.Hash.state) =
    hash_fold_unit

  and (hash : t -> Ppx_hash_lib.Std.Hash.hash_value) =
    let func = hash_unit in
    fun x -> func x
  ;;

  let t_of_sexp = (unit_of_sexp : Sexplib0.Sexp.t -> t)
  let sexp_of_t = (sexp_of_unit : t -> Sexplib0.Sexp.t)
  let (t_sexp_grammar : t Sexplib0.Sexp_grammar.t) = unit_sexp_grammar

  [@@@end]

  let compare _ _ = 0
  let compare__local _ _ = 0
  let equal__local _ _ = true

  let of_string = function
    | "()" -> ()
    | _ -> failwith "Base.Unit.of_string: () expected"
  ;;

  let to_string () = "()"
  let module_name = "Base.Unit"
end

include T
include Identifiable.Make (T)

let invariant () = ()