如何在F#中设置Hangfire授权？

dotnet add package Hangfire
dotnet add package Hangfire.SqlServer

<ItemGroup>
    <PackageReference Include="Hangfire" Version="1.7.11" />
    <PackageReference Include="Hangfire.SqlServer" Version="1.7.11" />
</ItemGroup>

open Hangfire
open Hangfire.SqlServer
open Microsoft.Extensions.DependencyInjection
open System

[<Hangfire.AspnetCore.GlobalsJobFilterAttribute>]
[<JobFilter("HangfireAuthorizeFilter")>]
let recurringJobId = "my-recurring-job"

type MyJob() =
    static member MyMethod() =
        // 这里是你的作业逻辑
        printfn "Hello from Hangfire job!"

// 设置授权规则
type HangfireAuthorizeFilter() =
    inherit JobFilterAttribute()
    
    override this.OnPerforming(jobContext: JobFilterContext, cancellationToken: System.Threading.CancellationToken) =
        let authorizationHeader = jobContext.BackgroundJob.Job.Args.[0] :?> string
        // 这里可以添加你自定义的授权逻辑，例如检查授权头部是否有效
        if authorizationHeader = "valid_token" then
            base.OnPerforming(jobContext, cancellationToken)
        else
            jobContext.Canceled <- true

open Hangfire
open Hangfire.SqlServer
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Hosting
open Microsoft.Extensions.Configuration
open Microsoft.Extensions.DependencyInjection

type Startup private () =
    member this.ConfigureServices(services: IServiceCollection) =
        services.AddHangfire(fun (config: HangfireConfiguration) -> config
            .SetDataCompatibilityLevel(CompatibilityLevel.Version_170)
            .UseSimpleAssemblyNameTypeSerializer()
            .UseRecommendedSerializerSettings()
            .UseSqlServerStorage("<connection_string>")) |> ignore
        
        // 注册Hangfire授权过滤器
        services.AddSingleton<HangfireAuthorizeFilter>() |> ignore

    member this.Configure(app: IApplicationBuilder, env: IHostingEnvironment) =
        app.UseHangfireDashboard("/hangfire")
           .UseHangfireServer()

let configureApp (app: IApplicationBuilder) =
    let env = app.ApplicationServices.GetService<IHostingEnvironment>()
    let startup = new Startup()
    startup.Configure(app, env)

let configureServices (services: IServiceCollection) =
    let startup = new Startup()
    startup.ConfigureServices(services)

[<EntryPoint>]
let main argv =
    let builder = WebApplication.CreateBuilder(argv)
    builder.Configure(configureApp)
           .ConfigureServices(configureServices)
           .Build()
           .Run()
    0