diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Model.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Home/Model.elm | 18 |
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 } |