diff options
Diffstat (limited to 'src/client/elm/Update.elm')
-rw-r--r-- | src/client/elm/Update.elm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm index 1625167..8b443a0 100644 --- a/src/client/elm/Update.elm +++ b/src/client/elm/Update.elm @@ -11,14 +11,15 @@ import Server import Model exposing (Model) import Model.Translations exposing (getMessage) import Model.Action exposing (..) -import Model.Action.SignInAction as SignInAction exposing (SignInAction) import Model.Action.LoggedInAction exposing (LoggedInAction) import Model.View as V -import Model.View.SignInView exposing (..) import Model.View.LoggedInView exposing (..) +import SignIn.Model as SignInModel +import SignIn.Action as SignInAction +import SignIn.Update as SignInUpdate + import Update.LoggedIn exposing (updateLoggedIn) -import Update.SignIn exposing (updateSignIn) import Utils.Http exposing (errorKey) @@ -48,7 +49,7 @@ update action model = ({ model | currentTime = time }, Effects.none) GoSignInView -> - ({ model | view = V.SignInView (initSignInView Nothing) }, Effects.none) + ({ model | view = V.SignInView (SignInModel.init Nothing) }, Effects.none) UpdateSignIn signInAction -> (applySignIn model signInAction, Effects.none) @@ -64,11 +65,11 @@ update action model = |> Effects.task ) -applySignIn : Model -> SignInAction -> Model +applySignIn : Model -> SignInAction.Action -> Model applySignIn model signInAction = case model.view of V.SignInView signInView -> - { model | view = V.SignInView (updateSignIn model.translations signInAction signInView) } + { model | view = V.SignInView (SignInUpdate.update model.translations signInAction signInView) } _ -> model |