diff options
| author | Joris | 2017-11-19 15:00:07 +0100 |
|---|---|---|
| committer | Joris | 2017-11-19 15:19:00 +0100 |
| commit | bab2c30addf8aaed85675e2b7f7b15c97c426f74 (patch) | |
| tree | b685a35e3c86e9388a23f09ed2546c89cb2ac260 /server/src/Main.hs | |
| parent | 7194cddb28656c721342c2ef604f9f9fb0692960 (diff) | |
| download | budget-bab2c30addf8aaed85675e2b7f7b15c97c426f74.tar.gz budget-bab2c30addf8aaed85675e2b7f7b15c97c426f74.tar.bz2 budget-bab2c30addf8aaed85675e2b7f7b15c97c426f74.zip | |
Add exceeding payer block
Diffstat (limited to 'server/src/Main.hs')
| -rw-r--r-- | server/src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |