Move logged data to LoggedIn component

1 files changed, 6 insertions, 12 deletions

diff --git a/src/client/elm/LoggedIn/Home/Model.elm b/src/client/elm/LoggedIn/Home/Model.elm
index f8d24f5..2bcbe9a 100644
--- a/src/client/elm/LoggedIn/Home/Model.elm
+++ b/src/client/elm/LoggedIn/Home/Model.elm
@@ -7,29 +7,23 @@ import LoggedIn.Home.Model.Payer exposing (Payers)
 
 import Model.User exposing (Users, UserId)
 import Model.Payment exposing (PaymentId, Payments, PaymentFrequency(..))
-import Model.Init exposing (..)
 
 import LoggedIn.Home.Account.Model as AccountModel
 import LoggedIn.Home.AddPayment.Model as AddPaymentModel
-import LoggedIn.Home.Monthly.Model as MonthlyModel
 
 type alias Model =
   { add : AddPaymentModel.Model
-  , monthly : MonthlyModel.Model
   , account : AccountModel.Model
-  , users : Users
-  , payments : Payments
   , paymentEdition : Maybe PaymentId
   , currentPage : Int
+  , monthlyDetail : Bool
   }
 
-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
+init : Model
+init =
+  { add = AddPaymentModel.init Punctual
+  , account = AccountModel.init
   , paymentEdition = Nothing
   , currentPage = 1
+  , monthlyDetail = False
   }