WIP

1 files changed, 4 insertions, 4 deletions

diff --git a/server/src/Job/WeeklyReport.hs b/server/src/Job/WeeklyReport.hs
index 38d88b5..203c4e8 100644
--- a/server/src/Job/WeeklyReport.hs
+++ b/server/src/Job/WeeklyReport.hs
@@ -5,10 +5,10 @@ module Job.WeeklyReport
 import           Data.Time.Clock        (UTCTime, getCurrentTime)
 
 import           Conf                   (Conf)
-import qualified Model.Income           as Income
-import qualified Model.Payment          as Payment
 import qualified Model.Query            as Query
-import qualified Model.User             as User
+import qualified Persistence.Income     as IncomePersistence
+import qualified Persistence.Payment    as PaymentPersistence
+import qualified Persistence.User       as UserPersistence
 import qualified SendMail
 import qualified View.Mail.WeeklyReport as WeeklyReport
 
@@ -19,7 +19,7 @@ weeklyReport conf mbLastExecution = do
     Nothing -> return ()
     Just lastExecution -> do
       (payments, incomes, users) <- Query.run $
-        (,,) <$> Payment.listPunctual <*> Income.list <*> User.list
+        (,,) <$> PaymentPersistence.listPunctual <*> IncomePersistence.list <*> UserPersistence.list
       _ <- SendMail.sendMail conf (WeeklyReport.mail conf users payments incomes lastExecution now)
       return ()
   return now