Show the payment table with server side paging

1 files changed, 3 insertions, 4 deletions

diff --git a/client/src/View/App.hs b/client/src/View/App.hs
index d305d00..2b346af 100644
--- a/client/src/View/App.hs
+++ b/client/src/View/App.hs
@@ -58,15 +58,14 @@ widget initResult =
 signedWidget :: MonadWidget t m => Init -> Dynamic t Route -> m ()
 signedWidget init route = do
   R.dyn . R.ffor route $ \case
-    RootRoute -> do
-      paymentInit <- Payment.init
+    RootRoute ->
       Payment.view $ Payment.In
         { Payment._in_currentUser = _init_currentUser init
         , Payment._in_currency = _init_currency init
-        , Payment._in_init = paymentInit
+        , Payment._in_users = _init_users init
         }
 
-    IncomeRoute -> do
+    IncomeRoute ->
       Income.view $ Income.In
         { Income._in_currentUser = _init_currentUser init
         , Income._in_currency = _init_currency init