diff --git a/advanced/part3/src/Page/Article.elm b/advanced/part3/src/Page/Article.elm index c572d87..1efa9f0 100644 --- a/advanced/part3/src/Page/Article.elm +++ b/advanced/part3/src/Page/Article.elm @@ -71,21 +71,16 @@ init session slug = , article = Loading } , Cmd.batch - {- 👉 TODO: Oops! These are all `Task` values, not `Cmd` values! - - Use `|> Task.attempt` and `|> Task.perform` to make this compile. - - Relevant docs: - - https://alpha.elm-lang.org/packages/elm/core/latest/Task#attempt - https://alpha.elm-lang.org/packages/elm/core/latest/Task#perform - -} [ Article.fetch maybeCred slug |> Http.toTask + |> Task.attempt CompletedLoadArticle , Comment.list maybeCred slug |> Http.toTask + |> Task.attempt CompletedLoadComments , Time.here + |> Task.perform GotTimeZone , Loading.slowThreshold + |> Task.perform (\_ -> PassedSlowLoadThreshold) ] )