From 75a0c008281c97b7b1a848e89c57abf7bec94161 Mon Sep 17 00:00:00 2001
From: Richard Feldman <richard.t.feldman@gmail.com>
Date: Tue, 14 Aug 2018 02:54:40 -0400
Subject: [PATCH] Solution for advanced/part3

---
 advanced/part3/src/Page/Article.elm | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

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