diff options
Diffstat (limited to 'src/client/elm/Model.elm')
| -rw-r--r-- | src/client/elm/Model.elm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/client/elm/Model.elm b/src/client/elm/Model.elm index 7852c9a..3d2eb2b 100644 --- a/src/client/elm/Model.elm +++ b/src/client/elm/Model.elm @@ -7,10 +7,11 @@ import Time exposing (Time) import Json.Decode as Json import Model.View exposing (..) -import Model.View.SignInView exposing (initSignInView) import Model.Translations exposing (..) import Model.Conf exposing (..) +import SignIn.Model as SignInModel + import Utils.Maybe exposing (isJust) type alias Model = @@ -24,7 +25,7 @@ initialModel : Time -> String -> String -> Maybe String -> Model initialModel initialTime translations conf mbSignInError = { view = if isJust mbSignInError - then SignInView (initSignInView mbSignInError) + then SignInView (SignInModel.init mbSignInError) else LoadingView , currentTime = initialTime , translations = |