From 4dc84dbda7ba3ea60d13e6f81eeec556974b7c72 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 7 Nov 2019 07:59:41 +0100
Subject: Show payment header infos

---
 common/src/Common/Model/Payer.hs | 25 ++++++++++---------------
 1 file changed, 10 insertions(+), 15 deletions(-)

(limited to 'common/src/Common/Model/Payer.hs')

diff --git a/common/src/Common/Model/Payer.hs b/common/src/Common/Model/Payer.hs
index 3c816c8..39a5788 100644
--- a/common/src/Common/Model/Payer.hs
+++ b/common/src/Common/Model/Payer.hs
@@ -1,19 +1,19 @@
 module Common.Model.Payer
-  ( ExceedingPayer(..)
-  , getExceedingPayers
+  ( getExceedingPayers
   , useIncomesFrom
   , cumulativeIncomesSince
   ) where
 
-import qualified Data.List            as List
-import qualified Data.Maybe           as Maybe
-import           Data.Time            (NominalDiffTime, UTCTime (..))
-import qualified Data.Time            as Time
-import           Data.Time.Calendar   (Day)
+import qualified Data.List                   as List
+import qualified Data.Maybe                  as Maybe
+import           Data.Time                   (NominalDiffTime, UTCTime (..))
+import qualified Data.Time                   as Time
+import           Data.Time.Calendar          (Day)
 
-import           Common.Model.Income  (Income (..))
-import           Common.Model.Payment (Payment (..))
-import           Common.Model.User    (User (..), UserId)
+import           Common.Model.ExceedingPayer (ExceedingPayer (..))
+import           Common.Model.Income         (Income (..))
+import           Common.Model.Payment        (Payment (..))
+import           Common.Model.User           (User (..), UserId)
 
 data Payer = Payer
   { _payer_userId             :: UserId
@@ -29,11 +29,6 @@ data PostPaymentPayer = PostPaymentPayer
   , _postPaymentPayer_ratio             :: Float
   }
 
-data ExceedingPayer = ExceedingPayer
-  { _exceedingPayer_userId :: UserId
-  , _exceedingPayer_amount :: Int
-  } deriving (Show)
-
 getExceedingPayers :: UTCTime -> [User] -> [Income] -> [Payment] -> [ExceedingPayer]
 getExceedingPayers currentTime users incomes payments =
   let userIds = map _user_id users
-- 
cgit v1.2.3