From f4f24158a46d8c0975f1b8813bbdbbeebad8c108 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 6 Nov 2019 19:44:15 +0100
Subject: Show the payment table with server side paging

---
 client/src/View/Payment/Header.hs | 8 ++------
 1 file changed, 2 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 00987a3..c8ca347 100644
--- a/client/src/View/Payment/Header.hs
+++ b/client/src/View/Payment/Header.hs
@@ -32,7 +32,7 @@ import qualified Component.Input        as Input
 import qualified Component.Modal        as Modal
 import qualified Component.Select       as Select
 import qualified Util.List              as L
-import qualified View.Payment.Add       as Add
+import qualified View.Payment.Form      as Form
 import           View.Payment.Init      (Init (..))
 
 data In t = In
@@ -120,11 +120,7 @@ payerAndAdd incomes payments users categories paymentCategories currency frequen
 
     Modal.view $ Modal.In
       { Modal._in_show    = addPayment
-      , Modal._in_content = Add.view $ Add.In
-          { Add._in_categories = categories
-          , Add._in_paymentCategories = paymentCategories
-          , Add._in_frequency = frequency
-          }
+      , Modal._in_content = \_ -> return (R.never, R.never) -- TODO
       }
 
 searchLine
-- 
cgit v1.2.3