9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-16 01:25:18 +02:00
qp2/ocaml/Id.ml
2019-01-25 11:39:31 +01:00

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