diff options
| -rw-r--r-- | client/src/View/Payment/Table.hs | 4 | ||||
| -rw-r--r-- | server/src/Design/View/Payment.hs | 2 |
2 files changed, 5 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 diff --git a/server/src/Design/View/Payment.hs b/server/src/Design/View/Payment.hs index d563f5d..94e4f85 100644 --- a/server/src/Design/View/Payment.hs +++ b/server/src/Design/View/Payment.hs @@ -4,6 +4,7 @@ module Design.View.Payment import Clay +import qualified Design.Color as Color import qualified Design.View.Payment.HeaderForm as HeaderForm import qualified Design.View.Payment.HeaderInfos as HeaderInfos @@ -11,3 +12,4 @@ design :: Css design = do HeaderForm.design HeaderInfos.design + ".g-Payment__Refund" ? color Color.mossGreen |