From fc8be14dd0089eb12b78af7aaaecd8ed57896677 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 7 Aug 2019 21:27:59 +0200
Subject: Update category according to payment in add overlay

---
 client/src/View/Payment/Header.hs | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 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 c49b284..5cc362a 100644
--- a/client/src/View/Payment/Header.hs
+++ b/client/src/View/Payment/Header.hs
@@ -20,7 +20,8 @@ import qualified Reflex.Dom             as R
 import           Common.Model           (Category, CreatedPayment (..),
                                          Currency, ExceedingPayer (..),
                                          Frequency (..), Income (..), Init (..),
-                                         Payment (..), User (..))
+                                         Payment (..), PaymentCategory,
+                                         User (..))
 import qualified Common.Model           as CM
 import qualified Common.Msg             as Msg
 import qualified Common.View.Format     as Format
@@ -34,8 +35,9 @@ import           View.Payment.Add       (AddIn (..), AddOut (..))
 import qualified View.Payment.Add       as Add
 
 data HeaderIn t = HeaderIn
-  { _headerIn_init           :: Init
-  , _headerIn_searchPayments :: Dynamic t [Payment]
+  { _headerIn_init              :: Init
+  , _headerIn_searchPayments    :: Dynamic t [Payment]
+  , _headerIn_paymentCategories :: Dynamic t [PaymentCategory]
   }
 
 data HeaderOut t = HeaderOut
@@ -47,7 +49,7 @@ 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 punctualPayments users categories currency
+    addPayment <- payerAndAdd incomes punctualPayments users categories paymentCategories currency
     let resetSearchName = fmap (const ()) $ addPayment
     (searchName, searchFrequency)  <- searchLine resetSearchName
 
@@ -66,6 +68,7 @@ widget headerIn =
     users = _init_users init
     categories = _init_categories init
     currency = _init_currency init
+    paymentCategories = _headerIn_paymentCategories headerIn
 
 payerAndAdd
   :: forall t m. MonadWidget t m
@@ -73,9 +76,10 @@ payerAndAdd
   -> [Payment]
   -> [User]
   -> [Category]
+  -> Dynamic t [PaymentCategory]
   -> Currency
   -> m (Event t CreatedPayment)
-payerAndAdd incomes payments users categories currency = do
+payerAndAdd incomes payments users categories paymentCategories currency = do
   time <- liftIO Time.getCurrentTime
   R.divClass "payerAndAdd" $ do
     R.divClass "exceedingPayers" $
@@ -105,6 +109,7 @@ payerAndAdd incomes payments users categories currency = do
             ]
         , _modalIn_content = Add.view $ AddIn
             { _addIn_categories = categories
+            , _addIn_paymentCategories = paymentCategories
             , _addIn_cancel = _modalOut_hide modalOut
             }
         }
-- 
cgit v1.2.3