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/Model.elm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/client/elm/Model.elm') 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 } -- cgit v1.2.3