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
33

module View
  ( view
  ) where

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

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

import View.Header exposing (renderHeader)
import View.Loading exposing (renderLoading)
import View.SignIn exposing (renderSignIn)
import View.LoggedIn exposing (renderLoggedIn)

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
    LoadingView ->
      renderLoading address
    SignInView signInView ->
      renderSignIn address model signInView
    LoggedInView loggedInView ->
      renderLoggedIn address model loggedInView