diff options
Diffstat (limited to 'src/client/View/Payments/ExceedingPayer.elm')
-rw-r--r-- | src/client/View/Payments/ExceedingPayer.elm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/client/View/Payments/ExceedingPayer.elm b/src/client/View/Payments/ExceedingPayer.elm index cea8d66..903ad5b 100644 --- a/src/client/View/Payments/ExceedingPayer.elm +++ b/src/client/View/Payments/ExceedingPayer.elm @@ -6,19 +6,21 @@ import Html exposing (..) import Html.Attributes exposing (..) import List +import Model exposing (Model) import Model.Payers exposing (..) import Model.View.PaymentView exposing (PaymentView) +import Model.Translations exposing (getMessage) -exceedingPayers : PaymentView -> Html -exceedingPayers paymentView = +exceedingPayers : Model -> PaymentView -> Html +exceedingPayers model paymentView = div [ class "exceedingPayers" ] - (List.map exceedingPayer (getOrderedExceedingPayers paymentView.payers)) + (List.map (exceedingPayer model) (getOrderedExceedingPayers paymentView.payers)) -exceedingPayer : ExceedingPayer -> Html -exceedingPayer payer = +exceedingPayer : Model -> ExceedingPayer -> Html +exceedingPayer model payer = div [ class "exceedingPayer" ] [ span [ class "userName" ] [ text payer.userName ] - , span [ class "amount" ] [ text ("+ " ++ (toString payer.amount)) ] + , span [ class "amount" ] [ text ("+ " ++ (toString payer.amount) ++ " " ++ (getMessage "MoneySymbol" model.translations)) ] ] |