From cc6a51b5ca03ee1a3b5de7c32dd1324e1053f42a Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 5 Sep 2015 14:14:25 +0200 Subject: Renaming PaymentView to LoggedView --- src/client/Model/View/PaymentView.elm | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100644 src/client/Model/View/PaymentView.elm (limited to 'src/client/Model/View/PaymentView.elm') diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm deleted file mode 100644 index 93ab457..0000000 --- a/src/client/Model/View/PaymentView.elm +++ /dev/null @@ -1,33 +0,0 @@ -module Model.View.PaymentView - ( PaymentView - , initPaymentView - ) 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 (..) - -type alias PaymentView = - { users : Users - , me : UserId - , add : AddPayment - , payments : Payments - , paymentsCount : Int - , payers : Payers - , edition : Maybe Edition - , currentPage : Int - } - -initPaymentView : Users -> UserId -> Payments -> Int -> Payers -> PaymentView -initPaymentView users me payments paymentsCount payers = - { users = users - , me = me - , add = initAddPayment - , payments = payments - , paymentsCount = paymentsCount - , payers = payers - , edition = Nothing - , currentPage = 1 - } -- cgit v1.2.3