diff options
| author | Joris | 2019-11-02 20:52:27 +0100 |
|---|---|---|
| committer | Joris | 2019-11-02 20:52:27 +0100 |
| commit | 227dcd4435b775d7dbc5ae5d3d81b589897253cc (patch) | |
| tree | 6c7e71b83942a35c2b11d6874c4601c403a910c0 /client/src/View/Income/Table.hs | |
| parent | b97ad942495352c3fc1e0c820cfba82a9693ac7a (diff) | |
| download | budget-227dcd4435b775d7dbc5ae5d3d81b589897253cc.tar.gz budget-227dcd4435b775d7dbc5ae5d3d81b589897253cc.tar.bz2 budget-227dcd4435b775d7dbc5ae5d3d81b589897253cc.zip | |
Implement incomes server side paging
Diffstat (limited to 'client/src/View/Income/Table.hs')
| -rw-r--r-- | client/src/View/Income/Table.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/client/src/View/Income/Table.hs b/client/src/View/Income/Table.hs index 6d69c19..9b2129f 100644 --- a/client/src/View/Income/Table.hs +++ b/client/src/View/Income/Table.hs @@ -26,7 +26,7 @@ import qualified View.Income.Form as Form data In t = In { _in_currentUser :: UserId , _in_currency :: Currency - , _in_incomes :: Dynamic t [Income] + , _in_incomes :: [Income] } data Out t = Out @@ -40,7 +40,7 @@ view input = do table <- Table.view $ Table.In { Table._in_headerLabel = headerLabel - , Table._in_rows = R.ffor (_in_incomes input) $ reverse . L.sortOn _income_date + , Table._in_rows = reverse . L.sortOn _income_date $ _in_incomes input , Table._in_cell = cell [] (_in_currency input) , Table._in_cloneModal = \income -> Form.view $ Form.In |