diff options
| author | Joris | 2019-11-03 09:22:12 +0100 |
|---|---|---|
| committer | Joris | 2019-11-03 09:22:12 +0100 |
| commit | a267f0bb4566389342c3244d3c082dc2453f4615 (patch) | |
| tree | 29e62a08293bf740340518fc9be9b181aefed588 /client/src/View/Income/Table.hs | |
| parent | 227dcd4435b775d7dbc5ae5d3d81b589897253cc (diff) | |
| download | budget-a267f0bb4566389342c3244d3c082dc2453f4615.tar.gz budget-a267f0bb4566389342c3244d3c082dc2453f4615.tar.bz2 budget-a267f0bb4566389342c3244d3c082dc2453f4615.zip | |
Show users in income table
Diffstat (limited to 'client/src/View/Income/Table.hs')
| -rw-r--r-- | client/src/View/Income/Table.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/client/src/View/Income/Table.hs b/client/src/View/Income/Table.hs index 9b2129f..32ab27b 100644 --- a/client/src/View/Income/Table.hs +++ b/client/src/View/Income/Table.hs @@ -27,6 +27,7 @@ data In t = In { _in_currentUser :: UserId , _in_currency :: Currency , _in_incomes :: [Income] + , _in_users :: [User] } data Out t = Out @@ -41,7 +42,7 @@ view input = do table <- Table.view $ Table.In { Table._in_headerLabel = headerLabel , Table._in_rows = reverse . L.sortOn _income_date $ _in_incomes input - , Table._in_cell = cell [] (_in_currency input) + , Table._in_cell = cell (_in_users input) (_in_currency input) , Table._in_cloneModal = \income -> Form.view $ Form.In { Form._in_operation = Form.Clone income |