1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open! Import
open Base_quickcheck.Export
module Stable = struct
module V1 = struct
open Sexplib.Std
type 'a t = 'a lazy_t
[@@deriving bin_io, quickcheck, sexp, sexp_grammar, typerep, stable_witness]
let map = Base.Lazy.map
let compare = Base.Lazy.compare
end
end
module type Base_mask = module type of Base.Lazy with type 'a t := 'a Stable.V1.t
include Stable.V1
include (Base.Lazy : Base_mask)