Don't make elmHubHeader top-level

2017-10-27 12:44:18 +02:00
parent b964fb9a6d
commit 8610d9f42f
2 changed files with 15 additions and 16 deletions
--- 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)