Create an empty but reachable user page

1 files changed, 5 insertions, 0 deletions

diff --git a/src/client/elm/Model.elm b/src/client/elm/Model.elm
index 3d2eb2b..e006e97 100644
--- a/src/client/elm/Model.elm
+++ b/src/client/elm/Model.elm
@@ -6,6 +6,9 @@ module Model
 import Time exposing (Time)
 import Json.Decode as Json
 
+import TransitRouter
+import Route exposing (..)
+
 import Model.View exposing (..)
 import Model.Translations exposing (..)
 import Model.Conf exposing (..)
@@ -19,6 +22,7 @@ type alias Model =
   , currentTime : Time
   , translations : Translations
   , conf : Conf
+  , transitRouter : TransitRouter.TransitRouter Route
   }
 
 initialModel : Time -> String -> String -> Maybe String -> Model
@@ -36,4 +40,5 @@ initialModel initialTime translations conf mbSignInError =
       case Json.decodeString confDecoder conf of
         Ok conf -> conf
         Err _ -> { currency = "" }
+  , transitRouter = TransitRouter.empty Home
   }