асинхронная функция giraffe routef

Question

Я создавал api-сервер Giraffe с использованием F# и с радостью использовал route функции:

type Person = { id: BsonObjectId; name: string; age: int; }

let getPeople (databaseFn: unit-> IMongoDatabase) : HttpHandler =
    fun (next : HttpFunc) (ctx : HttpContext) -> 
        let database = databaseFn()
        let collection = database.GetCollection<Person> "people"
        task {
            let! cursor = collection.FindAsync<Person>(fun p -> true)
            let! hasMoved = cursor.MoveNextAsync()
            let result = 
                match hasMoved with
                | true -> json cursor.Current next ctx
                | false -> 
                    let message = { message = "No People found" }
                    RequestErrors.notFound (json message) next ctx
            return! result
        }

let savePerson (databaseFn: unit -> IMongoDatabase ) : HttpHandler =
    fun (next : HttpFunc) (ctx : HttpContext) -> 
        let database = databaseFn()
        let collection = database.GetCollection<Person> "people"
        task {
            let serialiser = ctx.GetJsonSerializer()
            let! person = ctx.BindJsonAsync<Person>()
            let personWithId = { person with id = BsonObjectId ( ObjectId.GenerateNewId() ) }
            do! collection.InsertOneAsync(personWithId)
            return! text "nailed it" next ctx
        }

let deletePerson (databaseFn: unit -> IMongoDatabase ) = 
    fun (id: string) -> 
        let database = databaseFn()
        let collection = database.GetCollection<Person> "people"
        task {
            let oId = BsonObjectId (ObjectId id) 
            let! result = collection.FindOneAndDeleteAsync<Person>(fun p -> p.id = oId)
            return text "awesomesauce"
        }

let personHandler getPeople savePerson deletePerson = 
    let path = "/people"
    choose [
        GET >=> choose [
            route path >=> getPeople
        ]
        POST >=> choose [
            route path >=> savePerson
        ]
        DELETE >=> choose [
            routef "/people/%s" >=> deletePerson
        ]
    ]

Но я добавил deletePerson обработчик, но теперь он жалуется, что

routef "/people/%s" >=> deletePerson

Тип HttpFuncResult не соответствует типу HttpHandler.

Я понимаю, что типы не совпадают, но когда я использую это так

routef "/people/%s" deletePerson

он жалуется, что deletePerson функция возвращает System.Threading.Tasks.Task<(HttpFunc -> HttpContext -> HttpFuncResult)> вместо HttpHandler

Я просто не знаю, откуда у меня routef где я могу получить значение из параметра маршрута и получить асинхронный HttpHandler за один раз?

Answer 1

У меня нет всех импортированных типов, чтобы все это скомпилировать, но я думаю, вам нужно удалить >=> из удаления:

DELETE >=> choose [
   (routef "/people/%s" deletePerson)
]

И подпись deletePerson будет такой:

let deletePerson (databaseFn: unit -> IMongoDatabase ) (id: string) : HttpHandler = 
    fun (next : HttpFunc) (ctx : HttpContext) -> 
        let database = databaseFn()
        //etc