aboutsummaryrefslogtreecommitdiff
path: root/client
diff options
context:
space:
mode:
Diffstat (limited to 'client')
-rw-r--r--client/src/View/Payment/Table.hs4
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