diff options
Diffstat (limited to 'src/client/Model/View/LoggedView.elm')
-rw-r--r-- | src/client/Model/View/LoggedView.elm | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/src/client/Model/View/LoggedView.elm b/src/client/Model/View/LoggedView.elm deleted file mode 100644 index 264fdf5..0000000 --- a/src/client/Model/View/LoggedView.elm +++ /dev/null @@ -1,36 +0,0 @@ -module Model.View.LoggedView - ( LoggedView - , initLoggedView - ) where - -import Model.User exposing (Users, UserId) -import Model.Payment exposing (Payments) -import Model.Payers exposing (Payers) -import Model.View.Payment.Add exposing (..) -import Model.View.Payment.Edition exposing (..) -import Model.View.Payment.Monthly exposing (..) - -type alias LoggedView = - { users : Users - , me : UserId - , add : AddPayment - , monthly : Monthly - , payments : Payments - , paymentsCount : Int - , payers : Payers - , paymentEdition : Maybe Edition - , currentPage : Int - } - -initLoggedView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> LoggedView -initLoggedView users me monthlyPayments payments paymentsCount payers = - { users = users - , me = me - , add = initAddPayment Punctual - , monthly = initMonthly monthlyPayments - , payments = payments - , paymentsCount = paymentsCount - , payers = payers - , paymentEdition = Nothing - , currentPage = 1 - } |