Generate Objects › mutation.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: [],
  }
];
module MyQuery: {
  module Raw: {
    type t_mutationWithError_value = {. \"stringField\": string};
    type t_mutationWithError_errors_field = string;
    type t_mutationWithError_errors = {
      .
      \"field\": t_mutationWithError_errors_field,
      \"message\": string,
    };
    type t_mutationWithError = {
      .
      \"value\": Js.Nullable.t(t_mutationWithError_value),
      \"errors\": Js.Nullable.t(array(t_mutationWithError_errors)),
    };
    type t = {. \"mutationWithError\": t_mutationWithError};
    type t_variables = unit;
  };
  type t_mutationWithError_value = {. \"stringField\": string};
  type t_mutationWithError_errors_field = [
    | `FutureAddedValue(string)
    | `FIRST
    | `SECOND
    | `THIRD
  ];
  type t_mutationWithError_errors = {
    .
    \"field\": t_mutationWithError_errors_field,
    \"message\": string,
  };
  type t_mutationWithError = {
    .
    \"value\": option(t_mutationWithError_value),
    \"errors\": option(array(t_mutationWithError_errors)),
  };
  type t = {. \"mutationWithError\": t_mutationWithError};
  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_mutationWithError_value = {. \"stringField\": string};
    type t_mutationWithError_errors_field = string;
    type t_mutationWithError_errors = {
      .
      \"field\": t_mutationWithError_errors_field,
      \"message\": string,
    };
    type t_mutationWithError = {
      .
      \"value\": Js.Nullable.t(t_mutationWithError_value),
      \"errors\": Js.Nullable.t(array(t_mutationWithError_errors)),
    };
    type t = {. \"mutationWithError\": t_mutationWithError};
    type t_variables = unit;
  };
  type t_mutationWithError_value = {. \"stringField\": string};
  type t_mutationWithError_errors_field = [
    | `FutureAddedValue(string)
    | `FIRST
    | `SECOND
    | `THIRD
  ];
  type t_mutationWithError_errors = {
    .
    \"field\": t_mutationWithError_errors_field,
    \"message\": string,
  };
  type t_mutationWithError = {
    .
    \"value\": option(t_mutationWithError_value),
    \"errors\": option(array(t_mutationWithError_errors)),
  };
  type t = {. \"mutationWithError\": t_mutationWithError};
  type t_variables = unit;
  let query = \"mutation   {\\nmutationWithError  {\\nvalue  {\\nstringField  \\n}\\n\\nerrors  {\\nfield  \\nmessage  \\n}\\n\\n}\\n\\n}\\n\";
  let parse: Raw.t => t =
    value => {
      let mutationWithError = {
        let value = value##mutationWithError;
        let errors = {
          let value = value##errors;
          switch (Js.toOption(value)) {
          | Some(value) =>
            Some(
              value
              |> Js.Array.map(value =>
                   let message = {
                     let value = value##message;
                     value;
                   }
                   and field = {
                     let value = value##field;
                     switch (Obj.magic(value: string)) {
                     | \"FIRST\" => `FIRST
                     | \"SECOND\" => `SECOND
                     | \"THIRD\" => `THIRD
                     | other => `FutureAddedValue(other)
                     };
                   };
                   {\"field\": field, \"message\": message};
                 ),
            )
          | None => None
          };
        }
        and value = {
          let value = value##value;
          switch (Js.toOption(value)) {
          | Some(value) =>
            Some(
              {
                let stringField = {
                  let value = value##stringField;
                  value;
                };
                {\"stringField\": stringField};
              },
            )
          | None => None
          };
        };
        {\"value\": value, \"errors\": errors};
      };
      {\"mutationWithError\": mutationWithError};
    };
  let serialize: t => Raw.t =
    value => {
      let mutationWithError = {
        let value = value##mutationWithError;
        let errors = {
          let value = value##errors;
          switch (value) {
          | Some(value) =>
            Js.Nullable.return(
              value
              |> Js.Array.map(value =>
                   let message = {
                     let value = value##message;
                     value;
                   }
                   and field = {
                     let value = value##field;
                     switch (value) {
                     | `FIRST => \"FIRST\"
                     | `SECOND => \"SECOND\"
                     | `THIRD => \"THIRD\"
                     | `FutureAddedValue(other) => other
                     };
                   };
                   {\"field\": field, \"message\": message};
                 ),
            )
          | None => Js.Nullable.null
          };
        }
        and value = {
          let value = value##value;
          switch (value) {
          | Some(value) =>
            Js.Nullable.return(
              {
                let stringField = {
                  let value = value##stringField;
                  value;
                };
                {\"stringField\": stringField};
              },
            )
          | None => Js.Nullable.null
          };
        };
        {\"value\": value, \"errors\": errors};
      };
      {\"mutationWithError\": mutationWithError};
    };
  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\";
};