From 8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 4 Oct 2015 20:48:32 +0200
Subject: Using incomes to compute a fair computation to designate the payer

---
 src/client/Model/Payers.elm | 59 ---------------------------------------------
 1 file changed, 59 deletions(-)
 delete mode 100644 src/client/Model/Payers.elm

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

diff --git a/src/client/Model/Payers.elm b/src/client/Model/Payers.elm
deleted file mode 100644
index 983e7b3..0000000
--- a/src/client/Model/Payers.elm
+++ /dev/null
@@ -1,59 +0,0 @@
-module Model.Payers
-  ( Payers
-  , ExceedingPayer
-  , payersDecoder
-  , updatePayers
-  , getOrderedExceedingPayers
-  ) where
-
-import Json.Decode as Json exposing (..)
-import Dict exposing (..)
-import List
-import Maybe
-
-import Model.User exposing (UserId, userIdDecoder)
-
-type alias Payers = Dict UserId Int
-
-payersDecoder : Decoder Payers
-payersDecoder = Json.map Dict.fromList (list payerDecoder)
-
-payerDecoder : Decoder (UserId, Int)
-payerDecoder =
-  object2 (,)
-    ("userId" := userIdDecoder)
-    ("totalPayment" := int)
-
-updatePayers : Payers -> UserId -> Int -> Payers
-updatePayers payers userId amountDiff =
-  Dict.update
-    userId
-    (\mbAmount ->
-      case mbAmount of
-        Just amount -> Just (amount + amountDiff)
-        Nothing -> Nothing
-    )
-    payers
-
-type alias ExceedingPayer =
-  { userId : UserId
-  , amount : Int
-  }
-
-getOrderedExceedingPayers : Payers -> List ExceedingPayer
-getOrderedExceedingPayers payers =
-  let orderedPayers =
-        Dict.toList payers
-          |> List.map (\(userId, amount) -> ExceedingPayer userId amount)
-          |> List.sortBy .amount
-      maybeMinAmount =
-        List.head orderedPayers
-          |> Maybe.map .amount
-  in  case maybeMinAmount of
-        Just minAmount ->
-          orderedPayers
-            |> List.map (\payer -> { payer | amount <- payer.amount - minAmount })
-            |> List.filter (\payer -> payer.amount /= 0)
-            |> List.reverse
-        Nothing ->
-          []
-- 
cgit v1.2.3