From 702d60cbcdf85216a1b18416f4480afb77384e8a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 27 Mar 2016 20:20:10 +0200
Subject: Regroup loggedIn modules

---
 src/client/elm/Update.elm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/client/elm/Update.elm')

diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm
index 8b443a0..d25b852 100644
--- a/src/client/elm/Update.elm
+++ b/src/client/elm/Update.elm
@@ -11,16 +11,16 @@ import Server
 import Model exposing (Model)
 import Model.Translations exposing (getMessage)
 import Model.Action exposing (..)
-import Model.Action.LoggedInAction exposing (LoggedInAction)
 import Model.View as V
-import Model.View.LoggedInView exposing (..)
+
+import LoggedIn.Model as LoggedInModel
+import LoggedIn.Action as LoggedInAction
+import LoggedIn.Update as LoggedInUpdate
 
 import SignIn.Model as SignInModel
 import SignIn.Action as SignInAction
 import SignIn.Update as SignInUpdate
 
-import Update.LoggedIn exposing (updateLoggedIn)
-
 import Utils.Http exposing (errorKey)
 
 update : Action -> Model -> (Model, Effects Action)
@@ -41,7 +41,7 @@ update action model =
       )
 
     GoLoggedInView init ->
-      ( { model | view = V.LoggedInView (initLoggedInView init) }
+      ( { model | view = V.LoggedInView (LoggedInModel.init init) }
       , Effects.none
       )
 
@@ -73,11 +73,11 @@ applySignIn model signInAction =
     _ ->
       model
 
-applyLoggedIn : Model -> LoggedInAction -> (Model, Effects Action)
+applyLoggedIn : Model -> LoggedInAction.Action -> (Model, Effects Action)
 applyLoggedIn model loggedInAction =
   case model.view of
     V.LoggedInView loggedInView ->
-      let (loggedInView, effects) = updateLoggedIn model loggedInAction loggedInView
+      let (loggedInView, effects) = LoggedInUpdate.update model loggedInAction loggedInView
       in  ( { model | view = V.LoggedInView loggedInView }
           , Effects.map UpdateLoggedIn effects
           )
-- 
cgit v1.2.3