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 Tooltip

import View.Header as Header
import View.Errors as Errors

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
    , case model.view of
        SignInView signIn ->
          SignInView.view model signIn
        LoggedInView loggedIn ->
          LoggedInView.view model loggedIn
    , Errors.view model.translations model.errors
    , Dialog.view model.dialog
    , Html.map Msg.Tooltip <| Tooltip.view model.tooltip
    ]