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
34

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.LoggedIn exposing (renderLoggedIn)

import SignIn.View as SignInView

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 ->
      SignInView.view address model signInView
    LoggedInView loggedInView ->
      renderLoggedIn address model loggedInView