Hack around the case where field.ExecuteInput is null

fsprojects · Apr 21, 2024 · 85f95c2 · 85f95c2
1 parent 21ddd51
commit 85f95c2
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/FSharp.Data.GraphQL.Server/Values.fs b/src/FSharp.Data.GraphQL.Server/Values.fs
@@ -188,6 +188,19 @@ let rec internal compileByType (inputObjectPath: FieldPath) (inputSource : Input
                             | ValueSome field ->
                                 match Map.tryFind field.Name props with
                                 | None -> Ok <| wrapOptionalNone param.ParameterType field.TypeDef.Type
+                                | Some input when isNull (box field.ExecuteInput) ->
+                                    // hack around the case where field.ExecuteInput is null
+                                    let rec extract = function
+                                        | NullValue -> null
+                                        | IntValue i -> box i
+                                        | FloatValue f -> box f
+                                        | BooleanValue b -> box b
+                                        | StringValue s -> box s
+                                        | EnumValue e -> box e
+                                        | ListValue l -> box (l |> List.map extract)
+                                        | ObjectValue o -> o |> Map.map (fun k v -> extract v) |> box
+                                        | VariableName v -> failwithf "Todo: extract variable"
+                                    extract input |> Ok
                                 | Some prop ->
                                     field.ExecuteInput prop variables |> Result.map (normalizeOptional param.ParameterType)
                                     |> attachErrorExtensionsIfScalar inputSource inputObjectPath originalInputDef field