From 49426740e8e0c59040f4f3721a658f225572582b Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 28 Nov 2017 09:11:19 +0100
Subject: Add search for payments

---
 client/src/View/Payment.hs | 26 +++++++++++++++++++-------
 1 file changed, 19 insertions(+), 7 deletions(-)

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

diff --git a/client/src/View/Payment.hs b/client/src/View/Payment.hs
index 15892c4..8aa4d38 100644
--- a/client/src/View/Payment.hs
+++ b/client/src/View/Payment.hs
@@ -8,9 +8,10 @@ import           Prelude             hiding (init)
 import           Reflex.Dom          (MonadWidget)
 import qualified Reflex.Dom          as R
 
-import           Common.Model        (Init (..))
+import           Common.Model        (Frequency (..), Init (..), Payment (..))
+import           Common.Util.Text    as T
 
-import           View.Payment.Header (HeaderIn (..))
+import           View.Payment.Header (HeaderIn (..), HeaderOut (..))
 import qualified View.Payment.Header as Header
 import           View.Payment.Pages  (PagesIn (..), PagesOut (..))
 import qualified View.Payment.Pages  as Pages
@@ -29,15 +30,26 @@ widget :: forall t m. MonadWidget t m => PaymentIn -> m PaymentOut
 widget paymentIn = do
   R.divClass "payment" $ do
     rec
-      _ <- Header.widget $ HeaderIn
+      let init = _paymentIn_init paymentIn
+
+          filterPayment s p = search s (_payment_name p) && (_payment_frequency p == Punctual)
+
+          payments = fmap
+            (\s -> filter (filterPayment s) (_init_payments init))
+            (_headerOut_search header)
+
+      header <- Header.widget $ HeaderIn
         { _headerIn_init = init
         }
+
       _ <- Table.widget $ TableIn
         { _tableIn_init = init
-        , _tableIn_currentPage = _pagesOut_currentPage pagesOut
+        , _tableIn_currentPage = _pagesOut_currentPage pages
+        , _tableIn_payments = payments
         }
-      pagesOut <- Pages.widget $ PagesIn
-        { _pagesIn_payments = _init_payments init
+
+      pages <- Pages.widget $ PagesIn
+        { _pagesIn_payments = payments
         }
+
     return $ PaymentOut {}
-  where init = _paymentIn_init paymentIn
-- 
cgit v1.2.3