Create an empty but reachable user page

1 files changed, 3 insertions, 23 deletions

diff --git a/src/client/elm/LoggedIn/Model.elm b/src/client/elm/LoggedIn/Model.elm
index 4d85e68..a86b464 100644
--- a/src/client/elm/LoggedIn/Model.elm
+++ b/src/client/elm/LoggedIn/Model.elm
@@ -3,35 +3,15 @@ module LoggedIn.Model
   , init
   ) where
 
-import LoggedIn.Model.Payer exposing (Payers)
-
-import Model.User exposing (Users, UserId)
-import Model.Payment exposing (PaymentId, Payments, PaymentFrequency(..))
 import Model.Init exposing (..)
 
-import LoggedIn.Account.Model as AccountModel
-import LoggedIn.AddPayment.Model as AddPaymentModel
-import LoggedIn.Monthly.Model as MonthlyModel
+import LoggedIn.Home.Model as HomeModel
 
 type alias Model =
-  { users : Users
-  , add : AddPaymentModel.Model
-  , monthly : MonthlyModel.Model
-  , account : AccountModel.Model
-  , payments : Payments
-  , paymentsCount : Int
-  , paymentEdition : Maybe PaymentId
-  , currentPage : Int
+  { home : HomeModel.Model
   }
 
 init : Init -> Model
 init initData =
-  { users = initData.users
-  , add = AddPaymentModel.init Punctual
-  , monthly = MonthlyModel.init initData.monthlyPayments
-  , account = AccountModel.init initData.me initData.incomes
-  , payments = initData.payments
-  , paymentsCount = initData.paymentsCount
-  , paymentEdition = Nothing
-  , currentPage = 1
+  { home = HomeModel.init initData
   }