From 6b466f616035c2fc03359d182c074f096d6b7f17 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 29 Aug 2015 13:30:09 +0200
Subject: Showing exceeding payers

---
 src/client/Model/View/PaymentView.elm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/client/Model/View/PaymentView.elm')

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
   }
-- 
cgit v1.2.3