Fixed @valbers' comments

Author: xperiandri

src/FSharp.Data.GraphQL.Server/Execution.fs

@@ -645,7 +645,7 @@ let private compileInputObject (indef: InputObjectDef) =
     |> Array.iter(fun inputField ->
         // TODO: Implement compilation cache to reuse for the same type
         let inputFieldTypeDef = inputField.TypeDef
-        inputField.ExecuteInput <- compileByType [ box inputField.Name ] Unknown (inputFieldTypeDef, inputField.TypeDef)
+        inputField.ExecuteInput <- compileByType [ box inputField.Name ] Unknown (inputFieldTypeDef, inputFieldTypeDef)
         match inputField.TypeDef with
         | InputObject inputObjDef -> inputObjDef.ExecuteInput <- inputField.ExecuteInput
         | _ -> ()

src/FSharp.Data.GraphQL.Shared/ValidationTypes.fs

@@ -22,7 +22,7 @@ module Result =
 
     type ResultBuilder with
 
-        member inline _.Source(result: ValidationResult<'error>) = result.AsResult
+        member inline _.Source (result : ValidationResult<'error>) = result.AsResult
 
 module ValidationResult =
 
@@ -52,9 +52,17 @@ module GQLValidator =
 [<AbstractClass; Sealed>]
 type AstError =
 
-    static member AsResult(message : string, ?path : FieldPath) =
+    static member AsResult (message : string, ?path : FieldPath) =
         [
-            let extensions = Dictionary<string, obj>() |> GQLProblemDetails.SetErrorKind ErrorKind.Validation
-            { Message = message; Path = path |> Skippable.ofOption |> Skippable.map List.rev; Locations = Skip; Extensions = Include extensions }
+            {
+                Message = message
+                Path = path |> Skippable.ofOption |> Skippable.map List.rev
+                Locations = Skip
+                Extensions =
+                    Include (
+                        Dictionary<string, obj> ()
+                        |> GQLProblemDetails.SetErrorKind ErrorKind.Validation
+                    )
+            }
         ]
         |> ValidationResult.ValidationError