Showing exceeding payers

1 files changed, 5 insertions, 2 deletions

diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm
index 2f2be46..19ad355 100644
--- a/src/client/Model/View/PaymentView.elm
+++ b/src/client/Model/View/PaymentView.elm
@@ -4,6 +4,7 @@ module Model.View.PaymentView
   ) where
 
 import Model.Payment exposing (Payments)
+import Model.Payers exposing (Payers)
 import Model.View.Payment.Add exposing (..)
 import Model.View.Payment.Edition exposing (..)
 
@@ -11,13 +12,15 @@ type alias PaymentView =
   { userName : String
   , add : AddPayment
   , payments : Payments
+  , payers : Payers
   , edition : Maybe Edition
   }
 
-initPaymentView : String -> Payments -> PaymentView
-initPaymentView userName payments =
+initPaymentView : String -> Payments -> Payers -> PaymentView
+initPaymentView userName payments payers =
   { userName = userName
   , add = initAddPayment
   , payments = payments
+  , payers = payers
   , edition = Nothing
   }