Source file `graphql.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
module Schema = Graphql_schema.Make (struct
  type +'a t = 'a

  let bind t f = f t
  let return t = t

  module Stream = struct
    type 'a t = 'a Seq.t

    let map t f = Seq.map f t
    let iter t f = Seq.iter f t
    let close _t = ()
  end
end) (struct
  type t = string
  let message_of_field_error t = t
  let extensions_of_field_error _t = None
end)