From ab17b6339d16970c3845ec4f153bfeed89eae728 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 5 Jan 2018 14:45:47 +0100
Subject: Add modal component

---
 client/src/View/Payment.hs | 18 +++++-------------
 1 file changed, 5 insertions(+), 13 deletions(-)

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

diff --git a/client/src/View/Payment.hs b/client/src/View/Payment.hs
index f4aaf5c..42da8fb 100644
--- a/client/src/View/Payment.hs
+++ b/client/src/View/Payment.hs
@@ -8,8 +8,7 @@ import           Prelude             hiding (init)
 import           Reflex.Dom          (MonadWidget)
 import qualified Reflex.Dom          as R
 
-import           Common.Model        (Frequency (..), Init (..), Payment (..))
-import           Common.Util.Text    as T
+import           Common.Model        (Init (..))
 
 import           View.Payment.Header (HeaderIn (..), HeaderOut (..))
 import qualified View.Payment.Header as Header
@@ -31,13 +30,6 @@ widget paymentIn = do
   R.divClass "payment" $ do
     rec
       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)
-
           paymentsPerPage = 7
 
       header <- Header.widget $ HeaderIn
@@ -47,14 +39,14 @@ widget paymentIn = do
       _ <- Table.widget $ TableIn
         { _tableIn_init = init
         , _tableIn_currentPage = _pagesOut_currentPage pages
-        , _tableIn_payments = payments
+        , _tableIn_payments = _headerOut_searchPayments header
         , _tableIn_perPage = paymentsPerPage
         }
 
       pages <- Pages.widget $ PagesIn
-        { _pagesIn_total = length <$> payments
+        { _pagesIn_total = length <$> _headerOut_searchPayments header
         , _pagesIn_perPage = paymentsPerPage
-        , _pagesIn_reset = (fmap $ const ()) . R.updated $ _headerOut_search header
+        , _pagesIn_reset = (fmap $ const ()) . R.updated $ _headerOut_searchName header
         }
 
-    return $ PaymentOut {}
+    pure $ PaymentOut {}
-- 
cgit v1.2.3