mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-03 12:03:38 +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
|
||
|
|