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 Action exposing (Action)
import Model.View exposing (..)

import View.Header exposing (renderHeader)
import View.Loading exposing (renderLoading)

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