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

module View exposing
  ( view
  )

import Html exposing (..)

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

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
    ]

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