src/client/View/Header.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

module View.Header
  ( renderHeader
  ) where

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)

import ServerCommunication as SC
import ServerCommunication exposing (serverCommunications)

import Model exposing (Model)
import Model.View exposing (..)

import View.Icon exposing (renderIcon)

renderHeader : Model -> Html
renderHeader model =
  header
    []
    [ h1
        []
        [ text "Shared Cost" ]
    , case model.view of
        LoadingView ->
          text ""
        SignInView _ ->
          text ""
        PaymentView _ ->
          button
            [ class "signOut"
            , onClick serverCommunications.address SC.SignOut
            ]
            [ renderIcon "power-off" ]
    ]