Source file `generators.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
include Generators_core
include Generators_primitives
include Generators_collections
include Generators_combinators
include Generators_functions

module Ppx_internal = struct
  module Labels = Generators_core.Labels

  type collection = Generators_core.collection =
    { mutable finished : bool
    ; mutable handle : Internal.collection option
    ; min_size : int
    ; max_size : int option
    }

  let max_filter_attempts = Generators_core.max_filter_attempts
  let group = Generators_core.group
  let discardable_group = Generators_core.discardable_group
  let resolve_pool_draw = Generators_core.resolve_pool_draw
  let with_collection = Generators_core.with_collection
  let collection_more = Generators_core.collection_more
  let collection_reject = Generators_core.collection_reject
  let make_pool_values = Generators_core.make_pool_values
  let composite_with_label = Generators_core.composite_with_label
end