aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/View.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/View.elm')
-rw-r--r--src/client/elm/View.elm21
1 files changed, 10 insertions, 11 deletions
diff --git a/src/client/elm/View.elm b/src/client/elm/View.elm
index 90808aa..38734bc 100644
--- a/src/client/elm/View.elm
+++ b/src/client/elm/View.elm
@@ -1,12 +1,11 @@
-module View
+module View exposing
( view
- ) where
+ )
import Html exposing (..)
-import Signal exposing (Address)
import Model exposing (Model)
-import Action exposing (Action)
+import Msg exposing (Msg)
import Model.View exposing (..)
import LoggedData
@@ -15,18 +14,18 @@ import View.Header exposing (renderHeader)
import SignIn.View as SignInView
import LoggedIn.View as LoggedInView
-view : Address Action -> Model -> Html
-view address model =
+view : Model -> Html Msg
+view model =
div
[]
- [ renderHeader address model
- , renderMain address model
+ [ renderHeader model
+ , renderMain model
]
-renderMain : Address Action -> Model -> Html
-renderMain address model =
+renderMain : Model -> Html Msg
+renderMain model =
case model.view of
SignInView signIn ->
- SignInView.view address model signIn
+ SignInView.view model signIn
LoggedInView loggedIn ->
LoggedInView.view model loggedIn