wip

part4/src/Page/Home.elm

@@ -27,8 +27,7 @@ type alias Model =
 -- MODEL --
 
 
-{-| TODO add a type annotation to initialModel
--}
+initialModel : Model
 initialModel =
     { tags = [ "foo", "bar", "dragons" ]
     , selectedTag = ""
@@ -49,8 +48,7 @@ viewBanner =
         ]
 
 
-{-| TODO add a type annotation to view
--}
+view : Model -> Html Msg
 view model =
     div [ class "home-page" ]
         [ viewBanner
@@ -72,8 +70,7 @@ view model =
         ]
 
 
-{-| TODO add a type annotation to viewTag
--}
+viewTag : String -> String -> Html Msg
 viewTag selectedTagName tagName =
     let
         classname =
@@ -93,8 +90,7 @@ viewTag selectedTagName tagName =
 -- UPDATE --
 
 
-{-| TODO add a type annotation to update
--}
+update : Msg -> Model -> Model
 update msg model =
     if msg.operation == "SELECT_TAG" then
         { model | selectedTag = msg.data }