From c5c54722f4736108c8418c9865f81f05a6db560d Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 10 Aug 2019 15:29:56 +0200
Subject: Fix payment add frequency to the one selected in the page

---
 client/src/View/Payment/Header.hs | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

(limited to 'client/src/View/Payment/Header.hs')

diff --git a/client/src/View/Payment/Header.hs b/client/src/View/Payment/Header.hs
index 7a85493..fa21731 100644
--- a/client/src/View/Payment/Header.hs
+++ b/client/src/View/Payment/Header.hs
@@ -51,11 +51,20 @@ data HeaderOut t = HeaderOut
 widget :: forall t m. MonadWidget t m => HeaderIn t -> m (HeaderOut t)
 widget headerIn =
   R.divClass "header" $ do
-    addPayment <- payerAndAdd incomes payments users categories paymentCategories currency
-    let resetSearchName = fmap (const ()) $ addPayment
-    (searchName, searchFrequency)  <- searchLine resetSearchName
-
-    infos (_headerIn_searchPayments headerIn) users currency
+    rec
+      addPayment <-
+        payerAndAdd
+          incomes
+          payments
+          users
+          categories
+          paymentCategories
+          currency
+          searchFrequency
+      let resetSearchName = fmap (const ()) $ addPayment
+      (searchName, searchFrequency)  <- searchLine resetSearchName
+
+      infos (_headerIn_searchPayments headerIn) users currency
 
     return $ HeaderOut
       { _headerOut_searchName = searchName
@@ -80,8 +89,9 @@ payerAndAdd
   -> [Category]
   -> Dynamic t [PaymentCategory]
   -> Currency
+  -> Dynamic t Frequency
   -> m (Event t CreatedPayment)
-payerAndAdd incomes payments users categories paymentCategories currency = do
+payerAndAdd incomes payments users categories paymentCategories currency frequency = do
   time <- liftIO Time.getCurrentTime
   R.divClass "payerAndAdd" $ do
 
@@ -119,6 +129,7 @@ payerAndAdd incomes payments users categories paymentCategories currency = do
         , _modalIn_content = Add.view $ AddIn
             { _addIn_categories = categories
             , _addIn_paymentCategories = paymentCategories
+            , _addIn_frequency = frequency
             , _addIn_cancel = _modalOut_hide modalOut
             }
         }
-- 
cgit v1.2.3