From 76f8b85eb9f796d6df861a04f702ef5f48630795 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 29 Mar 2016 23:46:47 +0200
Subject: Move logged data to LoggedIn component

---
 src/client/elm/LoggedIn/Home/Model/Payer.elm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/client/elm/LoggedIn/Home/Model/Payer.elm')

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 =
-- 
cgit v1.2.3