From 76f8b85eb9f796d6df861a04f702ef5f48630795 Mon Sep 17 00:00:00 2001 From: Joris Date: Tue, 29 Mar 2016 23:46:47 +0200 Subject: Move logged data to LoggedIn component --- src/client/elm/LoggedIn/Home/Model.elm | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) (limited to 'src/client/elm/LoggedIn/Home/Model.elm') 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 } -- cgit v1.2.3