Address code review: fix typo, inline JsonWriterOptions, improve error message

Agent-Logs-Url: https://github.com/fsprojects/FSharp.Data.GraphQL/sessions/f2373ad8-e1ad-4cd6-8854-dc45f7e71e0c

Co-authored-by: xperiandri <2365592+xperiandri@users.noreply.github.com>

Author: Copilot

src/FSharp.Data.GraphQL.Client/BaseTypes.fs

@@ -565,7 +565,9 @@ module internal JsonValueHelper =
 /// The base type for all GraphQLProvider operation result provided types.
 type OperationResultBase
     (rawResponse : HttpResponseMessage, responseJson : string, operationFields : SchemaFieldInfo[], operationTypeName : string) =
-    let parsedJson = System.Text.Json.JsonDocument.Parse responseJson
+    let parsedJson =
+        try System.Text.Json.JsonDocument.Parse responseJson
+        with ex -> raise (System.InvalidOperationException ($"Failed to parse GraphQL response JSON: {ex.Message}", ex))
     let rootElement = parsedJson.RootElement
 
     let rawData =
@@ -619,7 +621,7 @@ type OperationResultBase
     interface IDisposable with
         member _.Dispose () = parsedJson.Dispose ()
 
-/// The base type for al GraphQLProvider operation provided types.
+/// The base type for all GraphQLProvider operation provided types.
 type OperationBase (query : string) =
     /// Gets the query string of the operation.
     member _.Query = query

src/FSharp.Data.GraphQL.Client/Serialization.fs

@@ -283,8 +283,7 @@ module Serialization =
     let buildRequestJson (operationName : string option) (query : string) (variables : (string * obj) []) =
         Tracer.runAndMeasureExecutionTime "Built GraphQL request JSON" (fun _ ->
             use stream = new MemoryStream ()
-            let writerOptions = JsonWriterOptions (Indented = false)
-            use writer = new Utf8JsonWriter (stream, writerOptions)
+            use writer = new Utf8JsonWriter (stream, JsonWriterOptions (Indented = false))
             let write = writeValue writer
             writer.WriteStartObject ()
             writer.WritePropertyName "operationName"
@@ -310,8 +309,7 @@ module Serialization =
     let buildMapJson (files : (string * Upload) []) =
         Tracer.runAndMeasureExecutionTime "Built GraphQL map JSON" (fun _ ->
             use stream = new MemoryStream ()
-            let writerOptions = JsonWriterOptions (Indented = false)
-            use writer = new Utf8JsonWriter (stream, writerOptions)
+            use writer = new Utf8JsonWriter (stream, JsonWriterOptions (Indented = false))
             writer.WriteStartObject ()
             files
             |> Array.iteri (fun ix (name, _) ->