GiraffeAuth.fs

open Giraffe
open Saturn

let myRouter = choose [
    route "/api/public" >=> text "Hello"
    requiresAuthentication (RequestErrors.UNAUTHORIZED "" "" "admin check") >=> route "/api/admin" >=> text "ADMIN"
    requiresAuthentication (RequestErrors.UNAUTHORIZED "" "" "customer check") >=> route "/api/customer" >=> text "CUSTOMER"
]

let a = application {
    use_router myRouter
}

run a

roles.fs

open Giraffe
open Microsoft.AspNetCore.Hosting
open Microsoft.AspNetCore.Builder
open Microsoft.Extensions.Hosting

let app = choose [
    route "/api/public" >=> text "Hello"
    requiresRole "admin" (RequestErrors.UNAUTHORIZED "" "" "admin check") >=> route "/api/admin" >=> text "ADMIN"
    requiresRole "customer" (RequestErrors.UNAUTHORIZED "" "" "customer check") >=> route "/api/customer" >=> text "CUSTOMER"
]

Host.CreateDefaultBuilder()
    .ConfigureWebHostDefaults(fun webBuilder ->
        webBuilder
            .Configure(fun appBuilder -> appBuilder.UseGiraffe app)
            .ConfigureServices(fun services -> services.AddGiraffe() |> ignore)
             |> ignore
    )
    .Build()
    .Run()