mirror of
https://github.com/c-cube/sidekick.git
synced 2026-01-24 10:26:40 -05:00
23 lines
498 B
OCaml
23 lines
498 B
OCaml
(** Integer-based identifiers. *)
|
|
|
|
module type S = sig
|
|
type t = private int
|
|
|
|
include Sidekick_sigs.EQ_ORD_HASH_PRINT with type t := t
|
|
|
|
val to_int : t -> int
|
|
val of_int_unsafe : int -> t
|
|
end
|
|
|
|
(** Generate a new type for integer identifiers *)
|
|
module Make () = struct
|
|
type t = int
|
|
|
|
let equal : t -> t -> bool = ( = )
|
|
let compare : t -> t -> int = compare
|
|
let hash = CCHash.int
|
|
let pp = CCFormat.int
|
|
let[@inline] to_int i = i
|
|
|
|
external of_int_unsafe : int -> t = "%identity"
|
|
end
|