From 5cb36652ccf07c9e0995ebc421a837ad7d258469 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 25 Jun 2016 23:08:35 +0200
Subject: Show only non-null payment partition

---
 src/client/elm/LoggedIn/Home/Header/View.elm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/client/elm/LoggedIn/Home/Header')

diff --git a/src/client/elm/LoggedIn/Home/Header/View.elm b/src/client/elm/LoggedIn/Home/Header/View.elm
index 67ff1f4..9468a04 100644
--- a/src/client/elm/LoggedIn/Home/Header/View.elm
+++ b/src/client/elm/LoggedIn/Home/Header/View.elm
@@ -83,6 +83,7 @@ paymentsPartition loggedData payments =
     ( loggedData.users
         |> Dict.toList
         |> List.map (Tuple.mapFst (\userId -> Payment.totalPayments (always True) userId payments))
+        |> List.filter (\(sum, _) -> sum > 0)
         |> List.sortBy fst
         |> List.reverse
         |> List.map (\(sum, user) ->
-- 
cgit v1.2.3