aboutsummaryrefslogtreecommitdiff
path: root/src/client/Model/View
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/Model/View')
-rw-r--r--src/client/Model/View/PaymentView.elm11
1 files changed, 7 insertions, 4 deletions
diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm
index bf5804f..93ab457 100644
--- a/src/client/Model/View/PaymentView.elm
+++ b/src/client/Model/View/PaymentView.elm
@@ -3,13 +3,15 @@ module Model.View.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 =
- { userName : String
+ { users : Users
+ , me : UserId
, add : AddPayment
, payments : Payments
, paymentsCount : Int
@@ -18,9 +20,10 @@ type alias PaymentView =
, currentPage : Int
}
-initPaymentView : String -> Payments -> Int -> Payers -> PaymentView
-initPaymentView userName payments paymentsCount payers =
- { userName = userName
+initPaymentView : Users -> UserId -> Payments -> Int -> Payers -> PaymentView
+initPaymentView users me payments paymentsCount payers =
+ { users = users
+ , me = me
, add = initAddPayment
, payments = payments
, paymentsCount = paymentsCount