From 7194cddb28656c721342c2ef604f9f9fb0692960 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Nov 2017 00:20:25 +0100
Subject: Show payment count and partition

- Also fixes exceedingPayer in back by using only punctual payments
---
 server/src/Job/Daemon.hs         | 2 +-
 server/src/Job/Model.hs          | 2 --
 server/src/Job/MonthlyPayment.hs | 2 +-
 3 files changed, 2 insertions(+), 4 deletions(-)

(limited to 'server/src/Job')

diff --git a/server/src/Job/Daemon.hs b/server/src/Job/Daemon.hs
index 26977d1..d8cd522 100644
--- a/server/src/Job/Daemon.hs
+++ b/server/src/Job/Daemon.hs
@@ -14,7 +14,7 @@ import           Job.Model          (actualizeLastCheck, actualizeLastExecution,
 import           Job.MonthlyPayment (monthlyPayment)
 import           Job.WeeklyReport   (weeklyReport)
 import qualified Model.Query        as Query
-import           Utils.Time         (belongToCurrentMonth, belongToCurrentWeek)
+import           Util.Time          (belongToCurrentMonth, belongToCurrentWeek)
 
 runDaemons :: Conf -> IO ()
 runDaemons conf = do
diff --git a/server/src/Job/Model.hs b/server/src/Job/Model.hs
index b90dca0..a5fa62b 100644
--- a/server/src/Job/Model.hs
+++ b/server/src/Job/Model.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module Job.Model
   ( Job(..)
   , getLastExecution
diff --git a/server/src/Job/MonthlyPayment.hs b/server/src/Job/MonthlyPayment.hs
index 8cb1c27..ca7e007 100644
--- a/server/src/Job/MonthlyPayment.hs
+++ b/server/src/Job/MonthlyPayment.hs
@@ -8,7 +8,7 @@ import           Common.Model    (Frequency (..), Payment (..))
 
 import qualified Model.Payment   as Payment
 import qualified Model.Query     as Query
-import           Utils.Time      (timeToDay)
+import           Util.Time       (timeToDay)
 
 monthlyPayment :: Maybe UTCTime -> IO UTCTime
 monthlyPayment _ = do
-- 
cgit v1.2.3