aboutsummaryrefslogtreecommitdiff
path: root/client/src
diff options
context:
space:
mode:
Diffstat (limited to 'client/src')
-rw-r--r--client/src/View/Income/Income.hs1
-rw-r--r--client/src/View/Income/Table.hs3
2 files changed, 3 insertions, 1 deletions
diff --git a/client/src/View/Income/Income.hs b/client/src/View/Income/Income.hs
index 90f1fde..2f0b8f5 100644
--- a/client/src/View/Income/Income.hs
+++ b/client/src/View/Income/Income.hs
@@ -64,6 +64,7 @@ view input = do
, Table._in_init = init
, Table._in_currency = _in_currency input
, Table._in_incomes = incomes
+ , Table._in_resetPage = () <$ addIncome
}
return ()
diff --git a/client/src/View/Income/Table.hs b/client/src/View/Income/Table.hs
index f865fd9..c754a77 100644
--- a/client/src/View/Income/Table.hs
+++ b/client/src/View/Income/Table.hs
@@ -30,6 +30,7 @@ data In t = In
, _in_init :: Init
, _in_currency :: Currency
, _in_incomes :: Dynamic t [Income]
+ , _in_resetPage :: Event t ()
}
data Out t = Out
@@ -46,7 +47,7 @@ view input = do
, Table._in_rows = R.ffor (_in_incomes input) $ reverse . L.sortOn _income_date
, Table._in_cell = cell (_in_init input) (_in_currency input)
, Table._in_perPage = 7
- , Table._in_resetPage = R.never
+ , Table._in_resetPage = _in_resetPage input
, Table._in_cloneModal = \income ->
Form.view $ Form.In
{ Form._in_operation = Form.Clone CreateIncomeForm income