From ca8a7b8b7936b98190876a855e78449706f8d199 Mon Sep 17 00:00:00 2001
From: Richard Feldman <richard.t.feldman@gmail.com>
Date: Sat, 5 May 2018 06:49:38 -0400
Subject: [PATCH] Simplify part3

---
 part3/src/Page/Home.elm | 26 +++++---------------------
 1 file changed, 5 insertions(+), 21 deletions(-)

diff --git a/part3/src/Page/Home.elm b/part3/src/Page/Home.elm
index 3949eea..1299a47 100644
--- a/part3/src/Page/Home.elm
+++ b/part3/src/Page/Home.elm
@@ -64,25 +64,12 @@ viewBanner =
         ]
 
 
-{-| TODO Give this function a new first argument called `selectedTag`, like so:
-
-BEFORE:
-
-    viewTag tagName =
-
-AFTER:
-
-    viewTag selectedTag tagName =
-
-HINT: This will cause a compiler error. See where the error message takes you!
-
--}
-viewTag tagName =
+viewTag selectedTagName tagName =
     let
+        {- TODO Set the classname to "tag-pill tag-selected" only when the
+           current tagName is equal to the selected one.
+        -}
         classname =
-            {- TODO Set the classname to "tag-pill tag-selected" only
-               when tagName == selectedTag
-            -}
             if False then
                 "tag-pill tag-selected"
             else
@@ -105,11 +92,8 @@ viewTag tagName =
         [ text tagName ]
 
 
-{-| HINT: Take a look at how initialModel is defined at the top of this file.
--}
 viewTags model =
-    div [ class "tag-list" ]
-        (List.map (\tag -> viewTag tag) model.tags)
+    div [ class "tag-list" ] (List.map (viewTag model.selectedTag) model.tags)
 
 
 viewFeed feed =