aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/Home/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Model')
-rw-r--r--src/client/elm/LoggedIn/Home/Model/Payer.elm5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/client/elm/LoggedIn/Home/Model/Payer.elm b/src/client/elm/LoggedIn/Home/Model/Payer.elm
index 65e3f0e..aabe50a 100644
--- a/src/client/elm/LoggedIn/Home/Model/Payer.elm
+++ b/src/client/elm/LoggedIn/Home/Model/Payer.elm
@@ -61,8 +61,9 @@ getOrderedExceedingPayers currentTime users incomes payments =
getPayers : Time -> Users -> Incomes -> Payments -> Payers
getPayers currentTime users incomes payments =
- let incomesDefined = incomeDefinedForAll (Dict.keys users) incomes
- in Dict.keys users
+ let userIds = Dict.keys users
+ incomesDefined = incomeDefinedForAll userIds incomes
+ in userIds
|> List.map (\userId ->
( userId
, { preIncomePaymentSum =