From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/client/elm/LoggedIn/Home/Header/View.elm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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

diff --git a/src/client/elm/LoggedIn/Home/Header/View.elm b/src/client/elm/LoggedIn/Home/Header/View.elm
index b67fb3b..3f8a320 100644
--- a/src/client/elm/LoggedIn/Home/Header/View.elm
+++ b/src/client/elm/LoggedIn/Home/Header/View.elm
@@ -5,7 +5,6 @@ module LoggedIn.Home.Header.View exposing
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (..)
-import Html.App as Html
 import String
 import Dict
 import Date
@@ -32,8 +31,6 @@ import LoggedIn.Home.View.ExceedingPayers as ExceedingPayers
 import LoggedIn.View.Format as Format
 import View.Plural exposing (plural)
 
-import Utils.Tuple as Tuple
-
 view : LoggedData -> Home.Model -> Payments -> Frequency -> Html Msg
 view loggedData { search } payments frequency =
   let currentDate = Date.fromTime loggedData.currentTime
@@ -90,9 +87,9 @@ paymentsPartition loggedData payments =
     ", "
     ( loggedData.users
         |> Dict.toList
-        |> List.map (Tuple.mapFst (\userId -> Payment.totalPayments (always True) userId payments))
+        |> List.map (Tuple.mapFirst (\userId -> Payment.totalPayments (always True) userId payments))
         |> List.filter (\(sum, _) -> sum > 0)
-        |> List.sortBy fst
+        |> List.sortBy Tuple.first
         |> List.reverse
         |> List.map (\(sum, user) ->
              getParamMessage [ user.name, Format.price loggedData.conf sum ] loggedData.translations "By"
-- 
cgit v1.2.3