From 06ccc38b65f0f4da2046ac97de447cd1ad061425 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 8 Apr 2016 09:46:34 +0200
Subject: Add total payment partition

---
 src/client/elm/Model/Payer.elm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 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 a7ce5fa..72f13b1 100644
--- a/src/client/elm/Model/Payer.elm
+++ b/src/client/elm/Model/Payer.elm
@@ -4,7 +4,6 @@ module Model.Payer
   , ExceedingPayer
   , getOrderedExceedingPayers
   , useIncomesFrom
-  , getPostPaymentPayer
   ) where
 
 import Json.Decode as Json exposing (..)
@@ -29,6 +28,12 @@ type alias Payer =
   , incomes : List Income
   }
 
+type alias PostPaymentPayer =
+  { preIncomePaymentSum : Int
+  , cumulativeIncome : Int
+  , ratio : Float
+  }
+
 type alias ExceedingPayer =
   { userId : UserId
   , amount : Int
@@ -118,12 +123,6 @@ exceedingPayersFromAmounts userAmounts =
                )
             |> List.filter (\payer -> payer.amount > 0)
 
-type alias PostPaymentPayer =
-  { preIncomePaymentSum : Int
-  , cumulativeIncome : Int
-  , ratio : Float
-  }
-
 getPostPaymentPayer : Time -> Time -> Payer -> PostPaymentPayer
 getPostPaymentPayer currentTime since payer =
   let cumulativeIncome = cumulativeIncomesSince currentTime since payer.incomes
-- 
cgit v1.2.3