From 24633871359ec9fbd63fdfebf79a6351b2792f77 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 00:05:50 +0200
Subject: Can add monthly payments, not visible at the moment though, just the
 count is printed

---
 src/client/Update.elm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/client/Update.elm')

diff --git a/src/client/Update.elm b/src/client/Update.elm
index d643d4e..08547e3 100644
--- a/src/client/Update.elm
+++ b/src/client/Update.elm
@@ -23,7 +23,7 @@ type Action =
   | GoSignInView
   | SignInError String
   | UpdateSignIn SignInAction
-  | GoLoggedView Users UserId Payments Int Payers
+  | GoLoggedView Users UserId Payments Payments Int Payers
   | UpdatePayment PaymentAction
 
 actions : Signal.Mailbox Action
@@ -38,8 +38,8 @@ updateModel action model =
       { model | currentTime <- time }
     GoSignInView ->
       { model | view <- V.SignInView initSignInView }
-    GoLoggedView users me payments paymentsCount payers ->
-      { model | view <- V.LoggedView (initLoggedView users me payments paymentsCount payers) }
+    GoLoggedView users me monthlyPayments payments paymentsCount payers ->
+      { model | view <- V.LoggedView (initLoggedView users me monthlyPayments payments paymentsCount payers) }
     SignInError msg ->
       let signInView = { initSignInView | result <- Just (Err msg) }
       in  { model | view <- V.SignInView signInView }
-- 
cgit v1.2.3