How to consume this EF Core C# async method in F#?

Обновить

April 2019

Просмотры

54 раз

1

Я использую F # с Entity Framework, и я не могу получить мою голову вокруг потребляя C # методы асинхронной из F #. Несмотря на другие SO ответы, связанные с подобными проблемами не могу получить мою голову вокруг.

Вот моя попытка на код ниже, первоначально синхронная:

let getAirport (id: Guid) =
    use context = new MyContext()
    context.Flights.Find id
    |> (fun x -> if box x = null then None else Some x)

А его asyncколлега:

let getAirportAsync (id: Guid) =
    async {
        use context = new MyContext()
        let! flight = context.Airports.FindAsync id |> Async.AwaitTask
        return (fun x -> if box x = null then None else Some x)
    }

Однако, когда оба называются в основном:

[<EntryPoint>]
let main argv =
    let myGuid = Guid.NewGuid()
    let airport = {
        Id = myGuid
        Name = "Michelle"
        X = 42.0
        Y = 42.0
    }
    AirportRepository.addAirport airport
    let thisAirport = AirportRepository.getAirport myGuid
    let thisAirportToo = AirportRepository.getAirportAsync myGuid |> Async.RunSynchronously
    assert (thisAirport = Some airport)
    assert (thisAirportToo = Some airport)
    0

Она не может составить:

  Program.fs(61, 13): [FS0001] The type '('a -> 'a option)' does not support the 'equality' constraint because it is a function type
  Program.fs(61, 30): [FS0001] This expression was expected to have type    ''a -> 'a option'    but here has type    ''b option'

Я читаю:

Я думал , что процесс потреблять asyncметод C # был:

  • Пропускают метод на С # |> Async.AwaitTask
  • Передайте результат let!
  • Возвращение такого результата
  • Заверните все в asyncблок , который формирует тело из asyncфункции F #
  • Используйте эту вновь asyncсозданную F # функцию, передавая ее|> Async.RunSynchronously

Что я здесь отсутствует?

1 ответы

3

The problem is that in getAirportAsync you discard flight and just return the function. The fix is simple:

let getAirportAsync (id: Guid) =
    async {
        use context = new MyContext()
        let! flight = context.Airports.FindAsync id |> Async.AwaitTask
        return if box flight = null then None else Some flight
    }