diff options
Diffstat (limited to 'client/src/View/Payment/Table.hs')
| -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 |