diff options
| author | Joris | 2020-01-30 12:44:40 +0100 |
|---|---|---|
| committer | Joris | 2020-01-30 12:44:40 +0100 |
| commit | f09bcb7119ec0944a7d20927212b71641cf1b5f6 (patch) | |
| tree | c9855a963bc119a7153628c71c55c631ea1f62fe /client | |
| parent | 960fa7cb7ae4c57d01306f78cd349f3a8337d0ab (diff) | |
Show back refund payments in green
Diffstat (limited to 'client')
| -rw-r--r-- | client/src/View/Payment/Table.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/client/src/View/Payment/Table.hs b/client/src/View/Payment/Table.hs index bfa0fb9..66065af 100644 --- a/client/src/View/Payment/Table.hs +++ b/client/src/View/Payment/Table.hs @@ -115,7 +115,9 @@ cell users categories frequency currency header payment = R.text $ _payment_name payment CostHeader -> - R.text . Format.price currency . _payment_cost $ payment + R.divClass (if amount < 0 then "g-Payment__Refund" else "") $ + R.text $ Format.price currency amount + where amount = _payment_cost payment UserHeader -> R.text . Maybe.fromMaybe "" . fmap _user_name $ CM.findUser (_payment_user payment) users |