Source file apol.ml

1
2
3
4
include Domain.Make(struct
  type t = Polka.strict Polka.t
  let man = Polka.manager_alloc_strict()
end)