diff options
| author | Joris | 2019-11-17 19:55:22 +0100 |
|---|---|---|
| committer | Joris | 2019-11-17 19:55:22 +0100 |
| commit | 3c67fcf1d524811a18f0c4db3ef6eed1270b9a12 (patch) | |
| tree | d0433d15c788d8add30aa828457ffb7a533ab926 /client/src/View/Payment/Payment.hs | |
| parent | c0ea63f8c1a8c7123b78798cec99726b113fb1f3 (diff) | |
| download | budget-3c67fcf1d524811a18f0c4db3ef6eed1270b9a12.tar.gz budget-3c67fcf1d524811a18f0c4db3ef6eed1270b9a12.tar.bz2 budget-3c67fcf1d524811a18f0c4db3ef6eed1270b9a12.zip | |
Hide date from monthly payments
Diffstat (limited to 'client/src/View/Payment/Payment.hs')
| -rw-r--r-- | client/src/View/Payment/Payment.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/client/src/View/Payment/Payment.hs b/client/src/View/Payment/Payment.hs index 6bc1614..a34d2f4 100644 --- a/client/src/View/Payment/Payment.hs +++ b/client/src/View/Payment/Payment.hs @@ -70,7 +70,7 @@ view input = do } result <- R.dyn . R.ffor payments $ - Loadable.view $ \(PaymentPage page header payments count) -> do + Loadable.view $ \(PaymentPage page frequency header payments count) -> do HeaderInfos.view $ HeaderInfos.In { HeaderInfos._in_users = _in_users input @@ -85,6 +85,7 @@ view input = do , Table._in_categories = categories , Table._in_currency = _in_currency input , Table._in_payments = payments + , Table._in_frequency = frequency } pages <- Pages.view $ Pages.In |