From 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 3 Jun 2016 20:27:16 +0200
Subject: Migrate to elm 0.17

---
 src/client/elm/View/Header.elm | 34 +++++++++++++++-------------------
 1 file changed, 15 insertions(+), 19 deletions(-)

(limited to 'src/client/elm/View/Header.elm')

diff --git a/src/client/elm/View/Header.elm b/src/client/elm/View/Header.elm
index 74fc2cc..5597429 100644
--- a/src/client/elm/View/Header.elm
+++ b/src/client/elm/View/Header.elm
@@ -1,13 +1,10 @@
-module View.Header
+module View.Header exposing
   ( renderHeader
-  ) where
+  )
 
-import Signal exposing (Address)
 import Dict
 
-import TransitRouter
-
-import Route exposing (..)
+import Page exposing (..)
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
@@ -15,32 +12,31 @@ import Html.Events exposing (..)
 
 import Model exposing (Model)
 import Model.Translations exposing (getMessage)
-import Action exposing (..)
+import Msg exposing (..)
 import Model.View exposing (..)
 
 import View.Icon exposing (renderIcon)
-import View.Click exposing (clickTo)
 
-renderHeader : Address Action -> Model -> Html
-renderHeader address model =
+renderHeader : Model -> Html Msg
+renderHeader model =
   header
     []
     (  [ div [ class "title" ] [ text (getMessage "SharedCost" model.translations) ] ]
-    ++ let item route name =
+    ++ let item page name =
              a
-               ( [ classList
-                     [ ("item", True)
-                     , ("current", TransitRouter.getRoute model == route)
-                     ]
-                 ] ++ clickTo route
-               )
+               [ href (Page.toHash page)
+               , classList
+                   [ ("item", True)
+                   , ("current", model.page == page)
+                   ]
+               ]
                [ text (getMessage name model.translations)
                ]
        in  case model.view of
              LoggedInView { me, users } ->
                [ item Home "PaymentsTitle"
                , item Income "Income"
-               , item Stat "Statistics"
+               , item Statistics "Statistics"
                , div
                    [ class "nameSignOut" ]
                    [ div
@@ -52,7 +48,7 @@ renderHeader address model =
                        ]
                    , button
                        [ class "signOut item"
-                       , onClick address SignOut
+                       , onClick SignOut
                        ]
                        [ renderIcon "power-off" ]
                    ]
-- 
cgit v1.2.3