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 +++++---
 src/client/Model/View/Payment/Add.elm | 6 +++---
 2 files changed, 8 insertions(+), 6 deletions(-)

(limited to 'src/client/Model/View')

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
diff --git a/src/client/Model/View/Payment/Add.elm b/src/client/Model/View/Payment/Add.elm
index da5d0f2..dc00e86 100644
--- a/src/client/Model/View/Payment/Add.elm
+++ b/src/client/Model/View/Payment/Add.elm
@@ -20,13 +20,13 @@ type alias AddPayment =
   , frequency : Frequency
   }
 
-initAddPayment : AddPayment
-initAddPayment =
+initAddPayment : Frequency -> AddPayment
+initAddPayment frequency =
   { name = ""
   , nameError = Nothing
   , cost = ""
   , costError = Nothing
-  , frequency = Punctual
+  , frequency = frequency
   }
 
 validateName : String -> Translations -> Result String String
-- 
cgit v1.2.3