package hegel

  1. Overview
  2. Docs

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
# 1 "./generators.ml.in"
module Public = struct
  include Generators_core
  include Generators_primitives
  include Generators_collections
  include Generators_combinators
  include Generators_functions
end

include Public

# 22 "./generators.ml.in"
let draw = Generators_core.draw
let draw_named = Generators_core.draw_named

# 26 "./generators.ml.in"
module Private = 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 group = Generators_core.group
  let discardable_group = Generators_core.discardable_group
  let with_collection = Generators_core.with_collection
  let collection_more = Generators_core.collection_more
  let collection_reject = Generators_core.collection_reject
  let label_of = Generators_core.label_of
end

module Ppx_internal = struct
  module Labels = Generators_core.Labels

  let%template composite_with_label = (Generators_core.composite_with_label [@mode m])
  [@@mode m = (nonportable, portable)]
  ;;
end