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  | 
