Modify weelky report and payment search interface

- Add payment balance in weekly report
- Show a message and hide pages when the search results in no results
- Go to page 1 when the search is updated / erased

1 files changed, 6 insertions, 1 deletions

diff --git a/client/src/View/Payment.hs b/client/src/View/Payment.hs
index 8aa4d38..f4aaf5c 100644
--- a/client/src/View/Payment.hs
+++ b/client/src/View/Payment.hs
@@ -38,6 +38,8 @@ widget paymentIn = do
             (\s -> filter (filterPayment s) (_init_payments init))
             (_headerOut_search header)
 
+          paymentsPerPage = 7
+
       header <- Header.widget $ HeaderIn
         { _headerIn_init = init
         }
@@ -46,10 +48,13 @@ widget paymentIn = do
         { _tableIn_init = init
         , _tableIn_currentPage = _pagesOut_currentPage pages
         , _tableIn_payments = payments
+        , _tableIn_perPage = paymentsPerPage
         }
 
       pages <- Pages.widget $ PagesIn
-        { _pagesIn_payments = payments
+        { _pagesIn_total = length <$> payments
+        , _pagesIn_perPage = paymentsPerPage
+        , _pagesIn_reset = (fmap $ const ()) . R.updated $ _headerOut_search header
         }
 
     return $ PaymentOut {}