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/Model/View/LoggedInView.elm | 36 ------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 src/client/elm/Model/View/LoggedInView.elm (limited to 'src/client/elm/Model/View') diff --git a/src/client/elm/Model/View/LoggedInView.elm b/src/client/elm/Model/View/LoggedInView.elm deleted file mode 100644 index e33c58b..0000000 --- a/src/client/elm/Model/View/LoggedInView.elm +++ /dev/null @@ -1,36 +0,0 @@ -module Model.View.LoggedInView - ( LoggedInView - , initLoggedInView - ) where - -import Model.User exposing (Users, UserId) -import Model.Payment exposing (Payments, PaymentFrequency(..)) -import Model.Payer exposing (Payers) -import Model.Init exposing (..) -import Model.View.LoggedIn.AddPayment exposing (..) -import Model.View.LoggedIn.Edition exposing (..) -import Model.View.LoggedIn.Monthly exposing (..) -import Model.View.LoggedIn.Account exposing (..) - -type alias LoggedInView = - { users : Users - , add : AddPayment - , monthly : Monthly - , account : Account - , payments : Payments - , paymentsCount : Int - , paymentEdition : Maybe Edition - , currentPage : Int - } - -initLoggedInView : Init -> LoggedInView -initLoggedInView init = - { users = init.users - , add = initAddPayment Punctual - , monthly = initMonthly init.monthlyPayments - , account = initAccount init.me init.incomes - , payments = init.payments - , paymentsCount = init.paymentsCount - , paymentEdition = Nothing - , currentPage = 1 - } -- cgit v1.2.3