module View.Header ( renderHeader ) where import Html exposing (..) import Html.Attributes exposing (..) import Html.Events exposing (..) import ServerCommunication as SC exposing (serverCommunications) import Model exposing (Model) import Model.View exposing (..) import Model.Translations exposing (getMessage) import View.Icon exposing (renderIcon) renderHeader : Model -> Html renderHeader model = header [] [ h1 [] [ text (getMessage "SharedCost" model.translations) ] , case model.view of LoggedInView _ -> button [ class "icon" , onClick serverCommunications.address SC.SignOut ] [ renderIcon "power-off" ] _ -> text "" ]