Create an empty but reachable user page

1 files changed, 9 insertions, 6 deletions

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