GraphQL!Execution.fs

let handleRequest (serviceProvider : IServiceProvider) (requestBodyStream : Stream) = async {
    ...
    try
        ...
        let! result =
            match request with
            | ValueSome (query, ValueSome variables) ->
                async {
                    let query = removeWhitespacesAndLineBreaks query
                    let root = serviceProvider.GetRequiredService<Root>()
                    let! result = Schema.executor.AsyncExecute (query, root, variables)
                    return result
                }
            | ValueSome (query, ValueNone) ->
                async {
                    let query = removeWhitespacesAndLineBreaks query
                    let root = serviceProvider.GetRequiredService<Root>()
                    let! result = Schema.executor.AsyncExecute(query, root)
                    return result
                }
            | ValueNone ->
                Schema.executor.AsyncExecute(Introspection.IntrospectionQuery)

        return result

    with | ex ->
        log.LogError ("Exception! {message}", ex.Message)
        let result = GQLResponse.Error (ex.Message, Metadata.Empty)
        return result
}