diff options
Diffstat (limited to 'src/client/elm/Model/View')
-rw-r--r-- | src/client/elm/Model/View/LoggedInView.elm | 36 |
1 files changed, 0 insertions, 36 deletions
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 - } |