diff options
Diffstat (limited to 'src/client/elm/View.elm')
-rw-r--r-- | src/client/elm/View.elm | 21 |
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 |