Give the payments count to the client

1 files changed, 4 insertions, 2 deletions

diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm
index 19ad355..117be59 100644
--- a/src/client/Model/View/PaymentView.elm
+++ b/src/client/Model/View/PaymentView.elm
@@ -12,15 +12,17 @@ type alias PaymentView =
   { userName : String
   , add : AddPayment
   , payments : Payments
+  , paymentsCount : Int
   , payers : Payers
   , edition : Maybe Edition
   }
 
-initPaymentView : String -> Payments -> Payers -> PaymentView
-initPaymentView userName payments payers =
+initPaymentView : String -> Payments -> Int -> Payers -> PaymentView
+initPaymentView userName payments paymentsCount payers =
   { userName = userName
   , add = initAddPayment
   , payments = payments
+  , paymentsCount = paymentsCount
   , payers = payers
   , edition = Nothing
   }