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/Model/Payer.elm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'src/client/elm/Model/Payer.elm')

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)
-- 
cgit v1.2.3