Regroup signIn modules

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