Update advanced/part6

2018-08-14 03:18:04 -04:00
parent 6cb0a2093a
commit 58194312b6
2 changed files with 3 additions and 3 deletions
--- a/advanced/part6/src/Page/Home.elm
+++ b/advanced/part6/src/Page/Home.elm
@@ -197,8 +197,8 @@ viewTabs isLoggedIn activeTab =
                []


-viewTab : Bool -> String -> msg -> Html msg
-viewTab isActive tabName msg =
+viewTab : Bool -> ( String, msg ) -> Html msg
+viewTab isActive ( tabName, msg ) =
    li [ class "nav-item" ]
        [ a
            [ classList [ ( "nav-link", True ), ( "active", isActive ) ]