aboutsummaryrefslogtreecommitdiff
path: root/src/client/View/Payments/ExceedingPayer.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/View/Payments/ExceedingPayer.elm')
-rw-r--r--src/client/View/Payments/ExceedingPayer.elm19
1 files changed, 14 insertions, 5 deletions
diff --git a/src/client/View/Payments/ExceedingPayer.elm b/src/client/View/Payments/ExceedingPayer.elm
index 903ad5b..f249383 100644
--- a/src/client/View/Payments/ExceedingPayer.elm
+++ b/src/client/View/Payments/ExceedingPayer.elm
@@ -7,6 +7,7 @@ import Html.Attributes exposing (..)
import List
import Model exposing (Model)
+import Model.User exposing (getUserName)
import Model.Payers exposing (..)
import Model.View.PaymentView exposing (PaymentView)
import Model.Translations exposing (getMessage)
@@ -15,12 +16,20 @@ exceedingPayers : Model -> PaymentView -> Html
exceedingPayers model paymentView =
div
[ class "exceedingPayers" ]
- (List.map (exceedingPayer model) (getOrderedExceedingPayers paymentView.payers))
+ (List.map (exceedingPayer model paymentView) (getOrderedExceedingPayers paymentView.payers))
-exceedingPayer : Model -> ExceedingPayer -> Html
-exceedingPayer model payer =
+exceedingPayer : Model -> PaymentView -> ExceedingPayer -> Html
+exceedingPayer model paymentView payer =
div
[ class "exceedingPayer" ]
- [ span [ class "userName" ] [ text payer.userName ]
- , span [ class "amount" ] [ text ("+ " ++ (toString payer.amount) ++ " " ++ (getMessage "MoneySymbol" model.translations)) ]
+ [ span
+ [ class "userName" ]
+ [ payer.userId
+ |> getUserName paymentView.users
+ |> Maybe.withDefault "−"
+ |> text
+ ]
+ , span
+ [ class "amount" ]
+ [ text ("+ " ++ (toString payer.amount) ++ " " ++ (getMessage "MoneySymbol" model.translations)) ]
]