diff options
author | Joris | 2017-11-19 15:00:07 +0100 |
---|---|---|
committer | Joris | 2017-11-19 15:19:00 +0100 |
commit | bab2c30addf8aaed85675e2b7f7b15c97c426f74 (patch) | |
tree | b685a35e3c86e9388a23f09ed2546c89cb2ac260 /client/src/View/Payment.hs | |
parent | 7194cddb28656c721342c2ef604f9f9fb0692960 (diff) | |
download | budget-bab2c30addf8aaed85675e2b7f7b15c97c426f74.tar.gz budget-bab2c30addf8aaed85675e2b7f7b15c97c426f74.tar.bz2 budget-bab2c30addf8aaed85675e2b7f7b15c97c426f74.zip |
Add exceeding payer block
Diffstat (limited to 'client/src/View/Payment.hs')
-rw-r--r-- | client/src/View/Payment.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/client/src/View/Payment.hs b/client/src/View/Payment.hs index 934f720..15892c4 100644 --- a/client/src/View/Payment.hs +++ b/client/src/View/Payment.hs @@ -4,6 +4,7 @@ module View.Payment , PaymentOut(..) ) where +import Prelude hiding (init) import Reflex.Dom (MonadWidget) import qualified Reflex.Dom as R @@ -29,13 +30,14 @@ widget paymentIn = do R.divClass "payment" $ do rec _ <- Header.widget $ HeaderIn - { _headerIn_init = _paymentIn_init $ paymentIn + { _headerIn_init = init } _ <- Table.widget $ TableIn - { _tableIn_init = _paymentIn_init paymentIn + { _tableIn_init = init , _tableIn_currentPage = _pagesOut_currentPage pagesOut } pagesOut <- Pages.widget $ PagesIn - { _pagesIn_payments = _init_payments . _paymentIn_init $ paymentIn + { _pagesIn_payments = _init_payments init } return $ PaymentOut {} + where init = _paymentIn_init paymentIn |