Merge branch 'features/categories' into 'master'

Features/categories

See merge request !1

1 files changed, 2 insertions, 5 deletions

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"