diff options
Diffstat (limited to 'src/client/View/Payments/ExceedingPayer.elm')
-rw-r--r-- | src/client/View/Payments/ExceedingPayer.elm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/client/View/Payments/ExceedingPayer.elm b/src/client/View/Payments/ExceedingPayer.elm index f249383..88b3a72 100644 --- a/src/client/View/Payments/ExceedingPayer.elm +++ b/src/client/View/Payments/ExceedingPayer.elm @@ -9,23 +9,23 @@ import List import Model exposing (Model) import Model.User exposing (getUserName) import Model.Payers exposing (..) -import Model.View.PaymentView exposing (PaymentView) +import Model.View.LoggedView exposing (LoggedView) import Model.Translations exposing (getMessage) -exceedingPayers : Model -> PaymentView -> Html -exceedingPayers model paymentView = +exceedingPayers : Model -> LoggedView -> Html +exceedingPayers model loggedView = div [ class "exceedingPayers" ] - (List.map (exceedingPayer model paymentView) (getOrderedExceedingPayers paymentView.payers)) + (List.map (exceedingPayer model loggedView) (getOrderedExceedingPayers loggedView.payers)) -exceedingPayer : Model -> PaymentView -> ExceedingPayer -> Html -exceedingPayer model paymentView payer = +exceedingPayer : Model -> LoggedView -> ExceedingPayer -> Html +exceedingPayer model loggedView payer = div [ class "exceedingPayer" ] [ span [ class "userName" ] [ payer.userId - |> getUserName paymentView.users + |> getUserName loggedView.users |> Maybe.withDefault "−" |> text ] |