mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 12:23:43 +01:00
30 lines
351 B
OCaml
30 lines
351 B
OCaml
module Id = struct
|
|
type t = int
|
|
|
|
let of_int x =
|
|
assert (x>0); x
|
|
|
|
let to_int x = x
|
|
|
|
let of_string x =
|
|
int_of_string x
|
|
|> of_int
|
|
|
|
let to_string x =
|
|
string_of_int x
|
|
|
|
let increment x = x + 1
|
|
let decrement x = x - 1
|
|
|
|
let compare = compare
|
|
end
|
|
|
|
module Task = struct
|
|
include Id
|
|
end
|
|
|
|
module Client = struct
|
|
include Id
|
|
end
|
|
|