Solution for advanced/part3

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)
         ]
     )