GraphQL!Startup.fs

type WebJobsHttpExtensionStartup () =

    interface IWebJobsStartup with
        member __.Configure (builder : IWebJobsBuilder) =
            builder.Services
                .AddScoped<Lazy<Result<GraphQLUser, Errors.ErrorMessage>>>(
                    fun provider -> Control.Lazy.Create(fun () -> WebJobsHttpExtensionStartup.GetUserIdResultFromClaims provider))
                .AddAuthorizationWithReflection (fun options ->
                    options.AddPolicy(Policies.EditBooks,
                                      fun policy -> policy.Requirements.Add(
                                          AllowedGroupRequierment (Seq.singleton ActiveDirectoryGroups.BookEditors)))
                    options.AddPolicy(Policies.ViewBooks,
                                      fun policy -> policy.Requirements.Add(
                                          AllowedGroupRequierment (seq {
                                              yield ActiveDirectoryGroups.BookEditors
                                              yield ActiveDirectoryGroups.BooksViewers
                                          })))
                    options.AddPolicy(Policies.ViewUsers,
                                      fun policy -> policy.Requirements.Add(
                                          AllowedGroupRequierment (Seq.singleton ActiveDirectoryGroups.UserViewers))))
                .AddScoped<IAuthorizationHandler, AllowedGroupHandler>()
                .AddScoped<IAuthorizationHandler, AllowedGroupAdminHandler>()
                |> ignore
            ()


[<assembly: WebJobsStartup(typeof<WebJobsHttpExtensionStartup>, "Http Extension")>]