我有这个代码我正在使用Fable Elmish和Fable远程连接到Suave服务器。我知道服务器因为邮递员而起作用,并且这些代码的变体确实调用了服务器
let AuthUser model : Cmd<LogInMsg> =
let callServer = async {
let! result = server.RequestLogIn model.Credentials
return result
}
let result = callServer |> Async.RunSynchronously
match result with
| LogInFailed x -> Cmd.ofMsg (LogInMsg.LogInRejected x)
| UserLoggedIn x -> Cmd.ofMsg (LogInMsg.LogInSuccess x)
let结果中的callServer
行因Object(...) is not a function
而失败,但我不明白为什么。任何帮助将不胜感激。
答案 0 :(得分:7)
根据寓言文档Async.RunSynchronously
不受支持,但我不确定这是否会导致您的问题。无论如何,你应该构建你的代码,这样你就不需要阻止异步计算。对于Elmish,您可以使用Cmd.ofAsync
从异步中创建一个命令,该异步在异步完成时调度异步返回的消息。
let AuthUser model : Cmd<LogInMsg> =
let ofSuccess result =
match result with
| LogInFailed x -> LogInMsg.LogInRejected x
| UserLoggedIn x -> LogInMsg.LogInSuccess x
let ofError exn = (* Message representing failed HTTP request *)
Cmd.ofAsync server.RequestLogIn model.Credentials ofSuccess ofError
希望这有帮助。