mirror of
https://github.com/zap-proto/ocaml-rpc.git
synced 2026-10-30 15:04:28 +00:00
Thomas Leonard
5def4159ff
Makes it match the new package names, and also will shrink the diff for the Eio port.
22 lines
398 B
OCaml
22 lines
398 B
OCaml
(** Unique identifiers. *)
|
|
|
|
open Stdint
|
|
|
|
module type S = sig
|
|
type t = private Uint32.t
|
|
val zero : t
|
|
val succ : t -> t
|
|
val uint32 : t -> Uint32.t
|
|
val of_uint32 : Uint32.t -> t
|
|
val pp : t Fmt.t
|
|
end
|
|
|
|
module Make ( ) : S = struct
|
|
type t = Uint32.t
|
|
let pp = Fmt.of_to_string Uint32.to_string
|
|
let uint32 x = x
|
|
let of_uint32 x = x
|
|
let zero = Uint32.zero
|
|
let succ = Uint32.succ
|
|
end
|