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
35
36
37

module View exposing
  ( view
  )

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

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

import View.Header as Header

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

import Utils.Maybe as Maybe

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

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