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