diff --git a/part3/Main.elm b/part3/Main.elm index 21417dd..00a921d 100644 --- a/part3/Main.elm +++ b/part3/Main.elm @@ -32,14 +32,14 @@ initialModel = } -elmHubHeader = - header [] - [ h1 [] [ text "ElmHub" ] - , span [ class "tagline" ] [ text "Like GitHub, but for Elm things." ] - ] - - view model = + let + elmHubHeader = + header [] + [ h1 [] [ text "ElmHub" ] + , span [ class "tagline" ] [ text "Like GitHub, but for Elm things." ] + ] + in div [ class "content" ] [ elmHubHeader , ul [ class "results" ] (List.map viewSearchResult model.results) diff --git a/part4/Main.elm b/part4/Main.elm index caea4ac..a5273f2 100644 --- a/part4/Main.elm +++ b/part4/Main.elm @@ -27,6 +27,7 @@ type alias Msg = {-| TODO add a type annotation to this value HINT: The type aliases above may come in handy for these exercises! + -} initialModel = { query = "tutorial" @@ -55,18 +56,16 @@ initialModel = } -{-| TODO add a type annotation to this value --} -elmHubHeader = - header [] - [ h1 [] [ text "ElmHub" ] - , span [ class "tagline" ] [ text "Like GitHub, but for Elm things." ] - ] - - {-| TODO add a type annotation to this function -} view model = + let + elmHubHeader = + header [] + [ h1 [] [ text "ElmHub" ] + , span [ class "tagline" ] [ text "Like GitHub, but for Elm things." ] + ] + in div [ class "content" ] [ elmHubHeader , ul [ class "results" ] (List.map viewSearchResult model.results)