Merge branch 'features/categories' into 'master'

Features/categories

See merge request !1

1 files changed, 4 insertions, 5 deletions

diff --git a/src/client/elm/Model/Payer.elm b/src/client/elm/Model/Payer.elm
index e5a4b65..1663273 100644
--- a/src/client/elm/Model/Payer.elm
+++ b/src/client/elm/Model/Payer.elm
@@ -6,7 +6,6 @@ module Model.Payer exposing
   , useIncomesFrom
   )
 
-import Json.Decode as Json exposing (..)
 import Dict exposing (..)
 import List
 import Maybe
@@ -54,7 +53,7 @@ getOrderedExceedingPayers currentTime users incomes payments =
               mbMaxRatio =
                 postPaymentPayers
                   |> Dict.toList
-                  |> List.map (.ratio << snd)
+                  |> List.map (.ratio << Tuple.second)
                   |> List.maximum
           in  case mbMaxRatio of
                 Just maxRatio ->
@@ -110,15 +109,15 @@ getPayers currentTime users incomes payments =
 
 exceedingPayersFromAmounts : List (UserId, Int) -> List ExceedingPayer
 exceedingPayersFromAmounts userAmounts =
-  let mbMinAmount = List.minimum << List.map snd <| userAmounts
+  let mbMinAmount = List.minimum << List.map Tuple.second <| userAmounts
   in  case mbMinAmount of
         Nothing ->
           []
         Just minAmount ->
           userAmounts
             |> List.map (\userAmount ->
-                 { userId = fst userAmount
-                 , amount = snd userAmount - minAmount
+                 { userId = Tuple.first userAmount
+                 , amount = Tuple.second userAmount - minAmount
                  }
                )
             |> List.filter (\payer -> payer.amount > 0)