aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/View/Header.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/View/Header.elm')
-rw-r--r--src/client/elm/View/Header.elm14
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" ]
_ ->