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/Component | |
| 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/Component')
| -rw-r--r-- | client/src/Component/Input.hs | 2 | ||||
| -rw-r--r-- | client/src/Component/Table.hs | 9 |
2 files changed, 5 insertions, 6 deletions
diff --git a/client/src/Component/Input.hs b/client/src/Component/Input.hs index 37020da..bcff377 100644 --- a/client/src/Component/Input.hs +++ b/client/src/Component/Input.hs @@ -57,7 +57,7 @@ view input reset validate = do ] inputAttr = R.ffor value (\v -> - if T.null v && _in_inputType input /= "date" + if T.null v && _in_inputType input /= "date" && _in_inputType input /= "color" then M.empty else M.singleton "class" "filled") diff --git a/client/src/Component/Table.hs b/client/src/Component/Table.hs index f82cfa6..1482f91 100644 --- a/client/src/Component/Table.hs +++ b/client/src/Component/Table.hs @@ -21,7 +21,8 @@ data In m t h r = In , _in_cloneModal :: r -> Modal.Content t m , _in_editModal :: r -> Modal.Content t m , _in_deleteModal :: r -> Modal.Content t m - , _in_isOwner :: r -> Bool + , _in_canEdit :: r -> Bool + , _in_canDelete :: r -> Bool } data Out t = Out @@ -62,8 +63,6 @@ view input = , Modal._in_content = _in_cloneModal input row } - let isOwner = _in_isOwner input row - let visibleIf cond = R.elAttr "div" @@ -71,7 +70,7 @@ view input = editButton <- R.divClass "cell button" $ - visibleIf isOwner $ + visibleIf (_in_canEdit input row) $ Button._out_clic <$> (Button.view $ Button.defaultIn Icon.edit) @@ -83,7 +82,7 @@ view input = deleteButton <- R.divClass "cell button" $ - visibleIf isOwner $ + visibleIf (_in_canDelete input row) $ Button._out_clic <$> (Button.view $ Button.defaultIn Icon.delete) |