update 01TEA to 0.18

knowthen · Nov 28, 2016 · fe9b21c · fe9b21c
1 parent db16ada
commit fe9b21c
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 21 deletions.
diff --git a/01The-Elm-Architecture/LeaderBoard.elm b/01The-Elm-Architecture/LeaderBoard.elm
@@ -52,13 +52,10 @@ view model =
     div []
         [ h3 [] [ text "Leaderboard page... So far" ]
         , input
-            [ type' "text"
+            [ type_ "text"
             , onInput QueryInput
             , value model.query
             , placeholder "Search for a runner..."
             ]
             []
-        , hr [] []
-        , h4 [] [ text "Leaderboard Model:" ]
-        , p [] [ text <| toString model ]
         ]
diff --git a/01The-Elm-Architecture/Login.elm b/01The-Elm-Architecture/Login.elm
@@ -50,19 +50,16 @@ view model =
         [ h3 [] [ text "Login Page... So far" ]
         , Html.form []
             [ input
-                [ type' "text"
+                [ type_ "text"
                 , onInput UsernameInput
                 , placeholder "username"
                 ]
                 []
             , input
-                [ type' "password"
+                [ type_ "password"
                 , onInput PasswordInput
                 , placeholder "password"
                 ]
                 []
             ]
-        , hr [] []
-        , h4 [] [ text "Login Model:" ]
-        , p [] [ text <| toString model ]
         ]
diff --git a/01The-Elm-Architecture/Main.elm b/01The-Elm-Architecture/Main.elm
@@ -3,7 +3,6 @@ module Main exposing (..)
 import Html exposing (..)
 import Html.Events exposing (..)
 import Html.Attributes exposing (..)
-import Html.App as App
 import Login
 import LeaderBoard
 
@@ -72,11 +71,11 @@ view model =
         page =
             case model.page of
                 LeaderBoardPage ->
-                    App.map LeaderBoardMsg
+                    Html.map LeaderBoardMsg
                         (LeaderBoard.view model.leaderBoard)
 
                 LoginPage ->
-                    App.map LoginMsg
+                    Html.map LoginMsg
                         (Login.view model.login)
     in
         div []
@@ -95,16 +94,13 @@ view model =
                 ]
             , hr [] []
             , page
-            , hr [] []
-            , h4 [] [ text "App Model:" ]
-            , p [] [ text <| toString model ]
             ]
 
 
-main : Program Never
+main : Program Never Model Msg
 main =
-    App.beginnerProgram
+    Html.beginnerProgram
         { model = initModel
-        , view = view
         , update = update
+        , view = view
         }
diff --git a/01The-Elm-Architecture/elm-package.json b/01The-Elm-Architecture/elm-package.json
@@ -8,8 +8,8 @@
     ],
     "exposed-modules": [],
     "dependencies": {
-        "elm-lang/core": "4.0.3 <= v < 5.0.0",
-        "elm-lang/html": "1.1.0 <= v < 2.0.0"
+        "elm-lang/core": "5.0.0 <= v < 6.0.0",
+        "elm-lang/html": "2.0.0 <= v < 3.0.0"
     },
-    "elm-version": "0.17.1 <= v < 0.18.0"
+    "elm-version": "0.18.0 <= v < 0.19.0"
 }