diff options
Diffstat (limited to 'src/client/elm/View/Header.elm')
-rw-r--r-- | src/client/elm/View/Header.elm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/client/elm/View/Header.elm b/src/client/elm/View/Header.elm index 0cc2137..9d57c05 100644 --- a/src/client/elm/View/Header.elm +++ b/src/client/elm/View/Header.elm @@ -2,20 +2,22 @@ module View.Header ( renderHeader ) where +import Signal exposing (Address) + 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 Model.Communication as Communication +import Model.Action exposing (..) +import Model.View exposing (..) import View.Icon exposing (renderIcon) -renderHeader : Model -> Html -renderHeader model = +renderHeader : Address Action -> Model -> Html +renderHeader address model = header [] [ h1 @@ -25,7 +27,7 @@ renderHeader model = LoggedInView _ -> button [ class "icon" - , onClick serverCommunications.address SC.SignOut + , onClick address (ServerCommunication Communication.SignOut) ] [ renderIcon "power-off" ] _ -> |