Showing exceeding payers

1 files changed, 4 insertions, 3 deletions

diff --git a/src/client/Update.elm b/src/client/Update.elm
index be7538a..df19775 100644
--- a/src/client/Update.elm
+++ b/src/client/Update.elm
@@ -8,6 +8,7 @@ import Time exposing (Time)
 
 import Model exposing (Model)
 import Model.Payment exposing (Payments)
+import Model.Payers exposing (Payers)
 import Model.View as V
 import Model.View.SignInView exposing (..)
 import Model.View.PaymentView exposing (..)
@@ -21,7 +22,7 @@ type Action =
   | GoSignInView
   | SignInError String
   | UpdateSignIn SignInAction
-  | GoPaymentView String Payments
+  | GoPaymentView String Payments Payers
   | UpdatePayment PaymentAction
 
 actions : Signal.Mailbox Action
@@ -36,8 +37,8 @@ updateModel action model =
       { model | currentTime <- time }
     GoSignInView ->
       { model | view <- V.SignInView initSignInView }
-    GoPaymentView userName payments ->
-      { model | view <- V.PaymentView (initPaymentView userName payments) }
+    GoPaymentView userName payments payers ->
+      { model | view <- V.PaymentView (initPaymentView userName payments payers) }
     SignInError msg ->
       let signInView = { initSignInView | result <- Just (Err msg) }
       in  { model | view <- V.SignInView signInView }