Generate Objects › nested.re › output
[@ocaml.ppx.context
  {
    tool_name: \"migrate_driver\",
    include_dirs: [],
    load_path: [],
    open_modules: [],
    for_package: None,
    debug: false,
    use_threads: false,
    use_vmthreads: false,
    recursive_types: false,
    principal: false,
    transparent_modules: false,
    unboxed_types: false,
    unsafe_string: false,
    cookies: [],
  }
];
type record = {
  f1: string,
  f2: string,
};
module MyQuery: {
  module Raw: {
    type t_first_inner_inner = {. \"field\": string};
    type t_first_inner = {. \"inner\": Js.Nullable.t(t_first_inner_inner)};
    type t_first = {. \"inner\": Js.Nullable.t(t_first_inner)};
    type t_second_inner_inner = {
      .
      \"f1\": string,
      \"f2\": string,
    };
    type t_second_inner = {. \"inner\": Js.Nullable.t(t_second_inner_inner)};
    type t_second = {. \"inner\": Js.Nullable.t(t_second_inner)};
    type t_let_inner_inner = {. \"field\": string};
    type t_let_inner = {. \"inner\": Js.Nullable.t(t_let_inner_inner)};
    type t_let = {. \"inner\": Js.Nullable.t(t_let_inner)};
    type t = {
      .
      \"first\": t_first,
      \"second\": t_second,
      \"let_\": t_let,
    };
    type t_variables = unit;
  };
  type t_first_inner_inner = {. \"field\": string};
  type t_first_inner = {. \"inner\": option(t_first_inner_inner)};
  type t_first = {. \"inner\": option(t_first_inner)};
  type t_second_inner_inner = {
    f1: string,
    f2: string,
  };
  type t_second_inner = {. \"inner\": option(t_second_inner_inner)};
  type t_second = {. \"inner\": option(t_second_inner)};
  type t_let_inner_inner = {. \"field\": string};
  type t_let_inner = {. \"inner\": option(t_let_inner_inner)};
  type t_let = {. \"inner\": option(t_let_inner)};
  type t = {
    .
    \"first\": t_first,
    \"second\": t_second,
    \"let_\": t_let,
  };
  type t_variables = unit;
  /** The GraphQL query */
  let query: string;
  /** Parse the JSON-compatible GraphQL data to ReasonML data types */
  let parse: Raw.t => t;
  /** Serialize the ReasonML GraphQL data that was parsed using the parse
function back to the original JSON compatible data */
  let serialize: t => Raw.t;
  let serializeVariables: unit => unit;
  let makeVariables: unit => unit;
  let makeDefaultVariables: unit => t_variables;
  external unsafe_fromJson: Js.Json.t => Raw.t = \"%identity\";
  external toJson: Raw.t => Js.Json.t = \"%identity\";
  external variablesToJson: Raw.t_variables => Js.Json.t = \"%identity\";
} = {
  [@ocaml.warning \"-32\"];
  module Raw = {
    type t_first_inner_inner = {. \"field\": string};
    type t_first_inner = {. \"inner\": Js.Nullable.t(t_first_inner_inner)};
    type t_first = {. \"inner\": Js.Nullable.t(t_first_inner)};
    type t_second_inner_inner = {
      .
      \"f1\": string,
      \"f2\": string,
    };
    type t_second_inner = {. \"inner\": Js.Nullable.t(t_second_inner_inner)};
    type t_second = {. \"inner\": Js.Nullable.t(t_second_inner)};
    type t_let_inner_inner = {. \"field\": string};
    type t_let_inner = {. \"inner\": Js.Nullable.t(t_let_inner_inner)};
    type t_let = {. \"inner\": Js.Nullable.t(t_let_inner)};
    type t = {
      .
      \"first\": t_first,
      \"second\": t_second,
      \"let_\": t_let,
    };
    type t_variables = unit;
  };
  type t_first_inner_inner = {. \"field\": string};
  type t_first_inner = {. \"inner\": option(t_first_inner_inner)};
  type t_first = {. \"inner\": option(t_first_inner)};
  type t_second_inner_inner = {
    f1: string,
    f2: string,
  };
  type t_second_inner = {. \"inner\": option(t_second_inner_inner)};
  type t_second = {. \"inner\": option(t_second_inner)};
  type t_let_inner_inner = {. \"field\": string};
  type t_let_inner = {. \"inner\": option(t_let_inner_inner)};
  type t_let = {. \"inner\": option(t_let_inner)};
  type t = {
    .
    \"first\": t_first,
    \"second\": t_second,
    \"let_\": t_let,
  };
  type t_variables = unit;
  let query = \"query   {\\nfirst: nestedObject  {\\ninner  {\\ninner  {\\nfield  \\n}\\n\\n}\\n\\n}\\n\\nsecond: nestedObject  {\\ninner  {\\ninner  {\\nf1: field  \\nf2: field  \\n}\\n\\n}\\n\\n}\\n\\nlet: nestedObject  {\\ninner  {\\ninner  {\\nfield  \\n}\\n\\n}\\n\\n}\\n\\n}\\n\";
  let parse: Raw.t => t =
    value => {
      let let_ = {
        let value = value##let_;
        let inner = {
          let value = value##inner;
          switch (Js.toOption(value)) {
          | Some(value) =>
            Some(
              {
                let inner = {
                  let value = value##inner;
                  switch (Js.toOption(value)) {
                  | Some(value) =>
                    Some(
                      {
                        let field = {
                          let value = value##field;
                          value;
                        };
                        {\"field\": field};
                      },
                    )
                  | None => None
                  };
                };
                {\"inner\": inner};
              },
            )
          | None => None
          };
        };
        {\"inner\": inner};
      }
      and second = {
        let value = value##second;
        let inner = {
          let value = value##inner;
          switch (Js.toOption(value)) {
          | Some(value) =>
            Some(
              {
                let inner = {
                  let value = value##inner;
                  switch (Js.toOption(value)) {
                  | Some(value) =>
                    Some(
                      {
                        let f2 = {
                          let value = value##f2;
                          value;
                        }
                        and f1 = {
                          let value = value##f1;
                          value;
                        };
                        {f1, f2};
                      }: t_second_inner_inner,
                    )
                  | None => None
                  };
                };
                {\"inner\": inner};
              },
            )
          | None => None
          };
        };
        {\"inner\": inner};
      }
      and first = {
        let value = value##first;
        let inner = {
          let value = value##inner;
          switch (Js.toOption(value)) {
          | Some(value) =>
            Some(
              {
                let inner = {
                  let value = value##inner;
                  switch (Js.toOption(value)) {
                  | Some(value) =>
                    Some(
                      {
                        let field = {
                          let value = value##field;
                          value;
                        };
                        {\"field\": field};
                      },
                    )
                  | None => None
                  };
                };
                {\"inner\": inner};
              },
            )
          | None => None
          };
        };
        {\"inner\": inner};
      };
      {\"first\": first, \"second\": second, \"let_\": let_};
    };
  let serialize: t => Raw.t =
    value => {
      let let_ = {
        let value = value##let_;
        let inner = {
          let value = value##inner;
          switch (value) {
          | Some(value) =>
            Js.Nullable.return(
              {
                let inner = {
                  let value = value##inner;
                  switch (value) {
                  | Some(value) =>
                    Js.Nullable.return(
                      {
                        let field = {
                          let value = value##field;
                          value;
                        };
                        {\"field\": field};
                      },
                    )
                  | None => Js.Nullable.null
                  };
                };
                {\"inner\": inner};
              },
            )
          | None => Js.Nullable.null
          };
        };
        {\"inner\": inner};
      }
      and second = {
        let value = value##second;
        let inner = {
          let value = value##inner;
          switch (value) {
          | Some(value) =>
            Js.Nullable.return(
              {
                let inner = {
                  let value = value##inner;
                  switch (value) {
                  | Some(value) =>
                    Js.Nullable.return(
                      {
                        let f2 = {
                          let value = (value: t_second_inner_inner).f2;
                          value;
                        }
                        and f1 = {
                          let value = (value: t_second_inner_inner).f1;
                          value;
                        };
                        {\"f1\": f1, \"f2\": f2};
                      },
                    )
                  | None => Js.Nullable.null
                  };
                };
                {\"inner\": inner};
              },
            )
          | None => Js.Nullable.null
          };
        };
        {\"inner\": inner};
      }
      and first = {
        let value = value##first;
        let inner = {
          let value = value##inner;
          switch (value) {
          | Some(value) =>
            Js.Nullable.return(
              {
                let inner = {
                  let value = value##inner;
                  switch (value) {
                  | Some(value) =>
                    Js.Nullable.return(
                      {
                        let field = {
                          let value = value##field;
                          value;
                        };
                        {\"field\": field};
                      },
                    )
                  | None => Js.Nullable.null
                  };
                };
                {\"inner\": inner};
              },
            )
          | None => Js.Nullable.null
          };
        };
        {\"inner\": inner};
      };
      {\"first\": first, \"second\": second, \"let_\": let_};
    };
  let serializeVariables = () => ();
  let makeVariables = () => ();
  let makeDefaultVariables = () => makeVariables();
  external unsafe_fromJson: Js.Json.t => Raw.t = \"%identity\";
  external toJson: Raw.t => Js.Json.t = \"%identity\";
  external variablesToJson: Raw.t_variables => Js.Json.t = \"%identity\";
};

module Test: {
  module MyQueryWithSig: {
    module Raw: {
      type t_nestedObject_inner_inner = {. \"field\": string};
      type t_nestedObject_inner = {
        .
        \"inner\": Js.Nullable.t(t_nestedObject_inner_inner),
      };
      type t_nestedObject = {. \"inner\": Js.Nullable.t(t_nestedObject_inner)};
      type t = {. \"nestedObject\": t_nestedObject};
      type t_variables = unit;
    };
    type t_nestedObject_inner_inner = {. \"field\": string};
    type t_nestedObject_inner = {
      .
      \"inner\": option(t_nestedObject_inner_inner),
    };
    type t_nestedObject = {. \"inner\": option(t_nestedObject_inner)};
    type t = {. \"nestedObject\": t_nestedObject};
    type t_variables = unit;
    /** The GraphQL query */
    let query: string;
    /** Parse the JSON-compatible GraphQL data to ReasonML data types */
    let parse: Raw.t => t;
    /** Serialize the ReasonML GraphQL data that was parsed using the parse
function back to the original JSON compatible data */
    let serialize: t => Raw.t;
    let serializeVariables: unit => unit;
    let makeVariables: unit => unit;
    let makeDefaultVariables: unit => t_variables;
    external unsafe_fromJson: Js.Json.t => Raw.t = \"%identity\";
    external toJson: Raw.t => Js.Json.t = \"%identity\";
    external variablesToJson: Raw.t_variables => Js.Json.t = \"%identity\";
  };
} = {
  module MyQueryWithSig: {
    module Raw: {
      type t_nestedObject_inner_inner = {. \"field\": string};
      type t_nestedObject_inner = {
        .
        \"inner\": Js.Nullable.t(t_nestedObject_inner_inner),
      };
      type t_nestedObject = {. \"inner\": Js.Nullable.t(t_nestedObject_inner)};
      type t = {. \"nestedObject\": t_nestedObject};
      type t_variables = unit;
    };
    type t_nestedObject_inner_inner = {. \"field\": string};
    type t_nestedObject_inner = {
      .
      \"inner\": option(t_nestedObject_inner_inner),
    };
    type t_nestedObject = {. \"inner\": option(t_nestedObject_inner)};
    type t = {. \"nestedObject\": t_nestedObject};
    type t_variables = unit;
    /** The GraphQL query */
    let query: string;
    /** Parse the JSON-compatible GraphQL data to ReasonML data types */
    let parse: Raw.t => t;
    /** Serialize the ReasonML GraphQL data that was parsed using the parse
function back to the original JSON compatible data */
    let serialize: t => Raw.t;
    let serializeVariables: unit => unit;
    let makeVariables: unit => unit;
    let makeDefaultVariables: unit => t_variables;
    external unsafe_fromJson: Js.Json.t => Raw.t = \"%identity\";
    external toJson: Raw.t => Js.Json.t = \"%identity\";
    external variablesToJson: Raw.t_variables => Js.Json.t = \"%identity\";
  } = {
    [@ocaml.warning \"-32\"];
    module Raw = {
      type t_nestedObject_inner_inner = {. \"field\": string};
      type t_nestedObject_inner = {
        .
        \"inner\": Js.Nullable.t(t_nestedObject_inner_inner),
      };
      type t_nestedObject = {. \"inner\": Js.Nullable.t(t_nestedObject_inner)};
      type t = {. \"nestedObject\": t_nestedObject};
      type t_variables = unit;
    };
    type t_nestedObject_inner_inner = {. \"field\": string};
    type t_nestedObject_inner = {
      .
      \"inner\": option(t_nestedObject_inner_inner),
    };
    type t_nestedObject = {. \"inner\": option(t_nestedObject_inner)};
    type t = {. \"nestedObject\": t_nestedObject};
    type t_variables = unit;
    let query = \"query   {\\nnestedObject  {\\ninner  {\\ninner  {\\nfield  \\n}\\n\\n}\\n\\n}\\n\\n}\\n\";
    let parse: Raw.t => t =
      value => {
        let nestedObject = {
          let value = value##nestedObject;
          let inner = {
            let value = value##inner;
            switch (Js.toOption(value)) {
            | Some(value) =>
              Some(
                {
                  let inner = {
                    let value = value##inner;
                    switch (Js.toOption(value)) {
                    | Some(value) =>
                      Some(
                        {
                          let field = {
                            let value = value##field;
                            value;
                          };
                          {\"field\": field};
                        },
                      )
                    | None => None
                    };
                  };
                  {\"inner\": inner};
                },
              )
            | None => None
            };
          };
          {\"inner\": inner};
        };
        {\"nestedObject\": nestedObject};
      };
    let serialize: t => Raw.t =
      value => {
        let nestedObject = {
          let value = value##nestedObject;
          let inner = {
            let value = value##inner;
            switch (value) {
            | Some(value) =>
              Js.Nullable.return(
                {
                  let inner = {
                    let value = value##inner;
                    switch (value) {
                    | Some(value) =>
                      Js.Nullable.return(
                        {
                          let field = {
                            let value = value##field;
                            value;
                          };
                          {\"field\": field};
                        },
                      )
                    | None => Js.Nullable.null
                    };
                  };
                  {\"inner\": inner};
                },
              )
            | None => Js.Nullable.null
            };
          };
          {\"inner\": inner};
        };
        {\"nestedObject\": nestedObject};
      };
    let serializeVariables = () => ();
    let makeVariables = () => ();
    let makeDefaultVariables = () => makeVariables();
    external unsafe_fromJson: Js.Json.t => Raw.t = \"%identity\";
    external toJson: Raw.t => Js.Json.t = \"%identity\";
    external variablesToJson: Raw.t_variables => Js.Json.t = \"%identity\";
  };
};
module MyQueryWithSigDirect: {
  module Raw: {
    type t_nestedObject_inner_inner = {. \"field\": string};
    type t_nestedObject_inner = {
      .
      \"inner\": Js.Nullable.t(t_nestedObject_inner_inner),
    };
    type t_nestedObject = {. \"inner\": Js.Nullable.t(t_nestedObject_inner)};
    type t = {. \"nestedObject\": t_nestedObject};
    type t_variables = unit;
  };
  type t_nestedObject_inner_inner = {. \"field\": string};
  type t_nestedObject_inner = {
    .
    \"inner\": option(t_nestedObject_inner_inner),
  };
  type t_nestedObject = {. \"inner\": option(t_nestedObject_inner)};
  type t = {. \"nestedObject\": t_nestedObject};
  type t_variables = unit;
  /** The GraphQL query */
  let query: string;
  /** Parse the JSON-compatible GraphQL data to ReasonML data types */
  let parse: Raw.t => t;
  /** Serialize the ReasonML GraphQL data that was parsed using the parse
function back to the original JSON compatible data */
  let serialize: t => Raw.t;
  let serializeVariables: unit => unit;
  let makeVariables: unit => unit;
  let makeDefaultVariables: unit => t_variables;
  external unsafe_fromJson: Js.Json.t => Raw.t = \"%identity\";
  external toJson: Raw.t => Js.Json.t = \"%identity\";
  external variablesToJson: Raw.t_variables => Js.Json.t = \"%identity\";
} = {
  [@ocaml.warning \"-32\"];
  module Raw = {
    type t_nestedObject_inner_inner = {. \"field\": string};
    type t_nestedObject_inner = {
      .
      \"inner\": Js.Nullable.t(t_nestedObject_inner_inner),
    };
    type t_nestedObject = {. \"inner\": Js.Nullable.t(t_nestedObject_inner)};
    type t = {. \"nestedObject\": t_nestedObject};
    type t_variables = unit;
  };
  type t_nestedObject_inner_inner = {. \"field\": string};
  type t_nestedObject_inner = {
    .
    \"inner\": option(t_nestedObject_inner_inner),
  };
  type t_nestedObject = {. \"inner\": option(t_nestedObject_inner)};
  type t = {. \"nestedObject\": t_nestedObject};
  type t_variables = unit;
  let query = \"query   {\\nnestedObject  {\\ninner  {\\ninner  {\\nfield  \\n}\\n\\n}\\n\\n}\\n\\n}\\n\";
  let parse: Raw.t => t =
    value => {
      let nestedObject = {
        let value = value##nestedObject;
        let inner = {
          let value = value##inner;
          switch (Js.toOption(value)) {
          | Some(value) =>
            Some(
              {
                let inner = {
                  let value = value##inner;
                  switch (Js.toOption(value)) {
                  | Some(value) =>
                    Some(
                      {
                        let field = {
                          let value = value##field;
                          value;
                        };
                        {\"field\": field};
                      },
                    )
                  | None => None
                  };
                };
                {\"inner\": inner};
              },
            )
          | None => None
          };
        };
        {\"inner\": inner};
      };
      {\"nestedObject\": nestedObject};
    };
  let serialize: t => Raw.t =
    value => {
      let nestedObject = {
        let value = value##nestedObject;
        let inner = {
          let value = value##inner;
          switch (value) {
          | Some(value) =>
            Js.Nullable.return(
              {
                let inner = {
                  let value = value##inner;
                  switch (value) {
                  | Some(value) =>
                    Js.Nullable.return(
                      {
                        let field = {
                          let value = value##field;
                          value;
                        };
                        {\"field\": field};
                      },
                    )
                  | None => Js.Nullable.null
                  };
                };
                {\"inner\": inner};
              },
            )
          | None => Js.Nullable.null
          };
        };
        {\"inner\": inner};
      };
      {\"nestedObject\": nestedObject};
    };
  let serializeVariables = () => ();
  let makeVariables = () => ();
  let makeDefaultVariables = () => makeVariables();
  external unsafe_fromJson: Js.Json.t => Raw.t = \"%identity\";
  external toJson: Raw.t => Js.Json.t = \"%identity\";
  external variablesToJson: Raw.t_variables => Js.Json.t = \"%identity\";
};