diff options
author | Joris | 2019-11-06 19:44:15 +0100 |
---|---|---|
committer | Joris | 2019-11-06 19:44:15 +0100 |
commit | f4f24158a46d8c0975f1b8813bbdbbeebad8c108 (patch) | |
tree | d0aeaa3a920caaff7408a1f6cd12b45f21cb2620 /client/src/View/App.hs | |
parent | 58f6c4e25f5f20f1b608242c83786e2f13947804 (diff) |
Show the payment table with server side paging
Diffstat (limited to 'client/src/View/App.hs')
-rw-r--r-- | client/src/View/App.hs | 7 |
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 |