For making an abstract version of a type that ensures a validation check has passed.
Suppose one wants to have a type of positive integers:
module Positive_int = Validated.Make (struct
type t = int
let here = [%here]
let validate = Int.validate_positive
end)
With this, one is certain that any value of type Positive_int.t
has passed
Int.validate_positive
.
One can call Positive_int.create_exn n
to create a new positive int from an n
,
which will of course raise if n <= 0
. One can call Positive_int.raw positive_int
to get the int
from a Positive_int.t
.