1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open! Import
include Base.Option
type 'a t = 'a option [@@deriving bin_io, typerep]
include Comparator.Derived (struct
type nonrec 'a t = 'a t [@@deriving sexp_of, compare]
end)
let quickcheck_generator = Base_quickcheck.Generator.option
let quickcheck_observer = Base_quickcheck.Observer.option
let quickcheck_shrinker = Base_quickcheck.Shrinker.option
module Stable = struct
module V1 = struct
type nonrec 'a t = 'a t [@@deriving bin_io, compare, sexp]
end
end