src/client/elm/View.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

module View
  ( view
  ) where

import Html exposing (..)
import Signal exposing (Address)

import Model exposing (Model)
import Action exposing (Action)
import Model.View exposing (..)
import LoggedData

import View.Header exposing (renderHeader)

import SignIn.View as SignInView
import LoggedIn.View as LoggedInView

view : Address Action -> Model -> Html
view address model =
  div
    []
    [ renderHeader address model
    , renderMain address model
    ]

renderMain : Address Action -> Model -> Html
renderMain address model =
  case model.view of
    SignInView signIn ->
      SignInView.view address model signIn
    LoggedInView loggedIn ->
      LoggedInView.view model loggedIn