GraphQL!Root.fs

type Root (serviceProvider : IServiceProvider,
           user            : Lazy<Result<GraphQLUser, ErrorMessage>>,
           facebookService : Lazy<Result<IFacebookService, ErrorMessage>>,
           securityOptions : IOptions<SecurityOptions>) =

    let securityOptions = securityOptions.Value

    member val RequestId = System.Guid.NewGuid () with get

    member __.ServiceProvider : IServiceProvider = serviceProvider
    member __.UserResult : Result<GraphQLUser, ErrorMessage> = user.Value
    member __.BibliotekoDatabase = serviceProvider.GetRequiredService<CosmosBibliotekoDatabase>()

// static var RootType = Define.Object<Root>(...)
let RootType =
    Define.Object<Root>
        (name = "Root", description = "The Root type to be passed to all our resolvers.",
         isTypeOf = (fun o -> o :? Root),
         fields =
             [ Define.Field("requestId", Guid, "Id of the request.", (fun _ (r : Root) -> r.RequestId)) ])