Generate Apollo › unionPartial.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_dogOrHuman_Dog = { __typename: string, name: string, barkVolume: float, }; type t_dogOrHuman; type t = {dogOrHuman: t_dogOrHuman}; type t_variables = unit; }; type t_dogOrHuman_Dog = { __typename: string, name: string, barkVolume: float, }; type t_dogOrHuman = [ | `FutureAddedValue(Js.Json.t) | `Dog(t_dogOrHuman_Dog) ]; type t = {dogOrHuman: t_dogOrHuman}; 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_dogOrHuman_Dog = { __typename: string, name: string, barkVolume: float, }; type t_dogOrHuman; type t = {dogOrHuman: t_dogOrHuman}; type t_variables = unit; }; type t_dogOrHuman_Dog = { __typename: string, name: string, barkVolume: float, }; type t_dogOrHuman = [ | `FutureAddedValue(Js.Json.t) | `Dog(t_dogOrHuman_Dog) ]; type t = {dogOrHuman: t_dogOrHuman}; type t_variables = unit; let query = \"query {\\ndogOrHuman {\\n__typename\\n...on Dog {\\n__typename \\nname \\nbarkVolume \\n}\\n\\n}\\n\\n}\\n\"; let parse: Raw.t => t = (value) => ( { dogOrHuman: { let value = (value: Raw.t).dogOrHuman; let typename: string = Obj.magic(Js.Dict.unsafeGet(Obj.magic(value), \"__typename\")); ( switch (typename) { | \"Dog\" => `Dog( { let value: Raw.t_dogOrHuman_Dog = Obj.magic(value); ( { __typename: { let value = (value: Raw.t_dogOrHuman_Dog).__typename; value; }, name: { let value = (value: Raw.t_dogOrHuman_Dog).name; value; }, barkVolume: { let value = (value: Raw.t_dogOrHuman_Dog).barkVolume; value; }, }: t_dogOrHuman_Dog ); }, ) | _ => `FutureAddedValue(Obj.magic(value): Js.Json.t) }: t_dogOrHuman ); }, }: t ); let serialize: t => Raw.t = (value) => ( { let dogOrHuman = { let value = (value: t).dogOrHuman; switch (value) { | `Dog(value) => ( Obj.magic( { let barkVolume = { let value = (value: t_dogOrHuman_Dog).barkVolume; value; } and name = { let value = (value: t_dogOrHuman_Dog).name; value; } and __typename = { let value = (value: t_dogOrHuman_Dog).__typename; value; }; {__typename: \"Dog\", name, barkVolume}; }: Raw.t_dogOrHuman_Dog, ): Raw.t_dogOrHuman ) | `FutureAddedValue(value) => (Obj.magic(value): Raw.t_dogOrHuman) }; }; {dogOrHuman: dogOrHuman}; }: Raw.t ); 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\"; };