diff options
| author | Joris | 2020-01-04 19:22:45 +0100 |
|---|---|---|
| committer | Joris | 2020-01-04 19:22:45 +0100 |
| commit | da2a0c13aa89705c65fdb9df2f496fb4eea29654 (patch) | |
| tree | 760e267f0215349af1d5e7c10c84a04bcb5bc75c /client/src/View/Payment/Table.hs | |
| parent | 1dfb85d3fd56d163fc854a8b3cf659d0ac39f639 (diff) | |
| download | budget-da2a0c13aa89705c65fdb9df2f496fb4eea29654.tar.gz budget-da2a0c13aa89705c65fdb9df2f496fb4eea29654.tar.bz2 budget-da2a0c13aa89705c65fdb9df2f496fb4eea29654.zip | |
Allow to remove only unused categories
Diffstat (limited to 'client/src/View/Payment/Table.hs')
| -rw-r--r-- | client/src/View/Payment/Table.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/client/src/View/Payment/Table.hs b/client/src/View/Payment/Table.hs index 6744d3a..bfa0fb9 100644 --- a/client/src/View/Payment/Table.hs +++ b/client/src/View/Payment/Table.hs @@ -74,7 +74,8 @@ view input = do e return $ () <$ R.fmapMaybe EitherUtil.eitherToMaybe res } - , Table._in_isOwner = (== (_in_currentUser input)) . _payment_user + , Table._in_canEdit = (== (_in_currentUser input)) . _payment_user + , Table._in_canDelete = (== (_in_currentUser input)) . _payment_user } return $ Out |