Ln
'Async<string>'
is not compatible with type
'Async<unit>'
Size: a a a
Ln
VS
VS
VS
VS
let init dispatch =
async{... dispatch SetText} |>Async.Start
{text = ""}
VS
VS
VS
VS
VS
Ln
VS
VS
Ln
let getAsync (url:string) =я хочу что бы сначало нарисовалось окно с заиниченным состоянием а после подменилось на мое
async {
Task.Delay 20000 |> Async.AwaitTask //тут всевозможные варианты с Async.Sleep и тд
let httpClient = new System.Net.Http.HttpClient()
let! response = httpClient.GetAsync(url) |> Async.AwaitTask
response.EnsureSuccessStatusCode () |> ignore
let! content = response.Content.ReadAsStringAsync() |> Async.AwaitTask
return content
}
AH
let getAsync (url:string) =я хочу что бы сначало нарисовалось окно с заиниченным состоянием а после подменилось на мое
async {
Task.Delay 20000 |> Async.AwaitTask //тут всевозможные варианты с Async.Sleep и тд
let httpClient = new System.Net.Http.HttpClient()
let! response = httpClient.GetAsync(url) |> Async.AwaitTask
response.EnsureSuccessStatusCode () |> ignore
let! content = response.Content.ReadAsStringAsync() |> Async.AwaitTask
return content
}
AH
AH
AH
let timer (_state: WeatherWindow.State) =
let sub (dispatch: WeatherWindow.Msg -> unit) =
getAsync "https://www.google.com"|> Async.RunSynchronously |> WeatherWindow.Msg.Text |> dispatch
Cmd.ofSub sub
AH
Ln