From c53198a7dd46f1575a33f823c29fa02126429e8f Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 23 Oct 2019 22:41:51 +0200
Subject: Go to initial page after adding an income

---
 client/src/View/Income/Income.hs | 1 +
 client/src/View/Income/Table.hs  | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3