From 166cd04e4b28770ede854dafc9ae30eae64102fe Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 28 Mar 2016 17:51:14 +0200
Subject: Create an empty but reachable user page

---
 src/client/elm/View/Header.elm | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 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 f1b0e76..5a37d9b 100644
--- a/src/client/elm/View/Header.elm
+++ b/src/client/elm/View/Header.elm
@@ -5,6 +5,8 @@ module View.Header
 import Signal exposing (Address)
 import Dict
 
+import Route exposing (..)
+
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (..)
@@ -15,24 +17,25 @@ import Action exposing (..)
 import Model.View exposing (..)
 
 import View.Icon exposing (renderIcon)
+import View.Click exposing (clickTo)
 
 renderHeader : Address Action -> Model -> Html
 renderHeader address model =
   header
     []
-    [ button
-        [ class "title" ]
+    [ a
+        ( [ class "title" ] ++ clickTo Home)
         [ h1
             []
             [ text (getMessage "SharedCost" model.translations) ]
         ]
     , case model.view of
-        LoggedInView { users, account } ->
+        LoggedInView { home } ->
           div
             [ class "signedPanel" ]
-            [ button
-                [ class "user" ]
-                [ Dict.get account.me users
+            [ a
+                ( [ class "user" ] ++ clickTo User)
+                [ Dict.get home.account.me home.users
                     |> Maybe.map .name
                     |> Maybe.withDefault ""
                     |> text
-- 
cgit v1.2.3