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/Model/View/LoggedView.elm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/src/client/Model/View/LoggedView.elm b/src/client/Model/View/LoggedView.elm
index 35fd9e5..34a55a2 100644
--- a/src/client/Model/View/LoggedView.elm
+++ b/src/client/Model/View/LoggedView.elm
@@ -13,6 +13,7 @@ type alias LoggedView =
   { users : Users
   , me : UserId
   , add : AddPayment
+  , monthlyPayments : Payments
   , payments : Payments
   , paymentsCount : Int
   , payers : Payers
@@ -20,11 +21,12 @@ type alias LoggedView =
   , currentPage : Int
   }
 
-initLoggedView : Users -> UserId -> Payments -> Int -> Payers -> LoggedView
-initLoggedView users me payments paymentsCount payers =
+initLoggedView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> LoggedView
+initLoggedView users me monthlyPayments payments paymentsCount payers =
   { users = users
   , me = me
-  , add = initAddPayment
+  , add = initAddPayment Punctual
+  , monthlyPayments = monthlyPayments
   , payments = payments
   , paymentsCount = paymentsCount
   , payers = payers
-- 
cgit v1.2.3