From bab2c30addf8aaed85675e2b7f7b15c97c426f74 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Nov 2017 15:00:07 +0100
Subject: Add exceeding payer block

---
 server/src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'server/src/Main.hs')

diff --git a/server/src/Main.hs b/server/src/Main.hs
index d7b9b93..c8080dc 100644
--- a/server/src/Main.hs
+++ b/server/src/Main.hs
@@ -8,6 +8,7 @@ import           Network.Wai.Middleware.Static
 import           Web.Scotty
 
 import           Common.Model                  (Frequency (..), Payment (..))
+import qualified Common.Model                  as CM
 
 import qualified Conf
 import qualified Controller.Category           as Category
@@ -18,7 +19,6 @@ import qualified Controller.SignIn             as SignIn
 import qualified Data.Time                     as Time
 import           Job.Daemon                    (runDaemons)
 import qualified Model.Income                  as IncomeM
-import           Model.Payer                   (getOrderedExceedingPayers)
 import qualified Model.Payment                 as PaymentM
 import qualified Model.Query                   as Query
 import qualified Model.User                    as UserM
@@ -36,7 +36,7 @@ main = do
       (users, incomes, payments) <- liftIO . Query.run $
         liftA3 (,,) UserM.list IncomeM.list PaymentM.list
       let punctualPayments = filter ((==) Punctual . _payment_frequency) payments
-          exceedingPayers = getOrderedExceedingPayers time users incomes punctualPayments
+          exceedingPayers = CM.getExceedingPayers time users incomes punctualPayments
       text . LT.pack . show $ exceedingPayers
 
     get "/" $ do
-- 
cgit v1.2.3