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 exposing
  ( view
  )

import Html exposing (..)
import Html.App as Html

import Model exposing (Model)
import Msg exposing (Msg)
import Model.View exposing (..)
import LoggedData
import Dialog

import View.Header exposing (renderHeader)

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

view : Model -> Html Msg
view model =
  div
    []
    [ renderHeader model
    , renderMain model
    , Dialog.view model.view model.dialog
    ]

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