From 86a96decdb8892b10c5314eb916ef15a64204450 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 13 Nov 2016 00:49:32 +0100
Subject: Send weekly activity at start of week about previous week

---
 src/server/Job.hs | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100644 src/server/Job.hs

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

diff --git a/src/server/Job.hs b/src/server/Job.hs
deleted file mode 100644
index bf8f15b..0000000
--- a/src/server/Job.hs
+++ /dev/null
@@ -1,25 +0,0 @@
-module Job
-  ( jobListener
-  ) where
-
-import Data.Time.Clock
-
-import Control.Concurrent (threadDelay)
-
-import Model.Database
-import Model.JobKind
-import Model.Job
-
-jobListener :: JobKind -> (UTCTime -> IO Bool) -> (() -> Persist ()) -> Int -> IO ()
-jobListener kind lastExecutionTooOld runJob msDelay = do
-  mbLastExecution <- runDb $ do
-    actualizeLastCheck kind
-    getLastExecution kind
-  hasToRun <- case mbLastExecution of
-    Just lastExecution -> lastExecutionTooOld lastExecution
-    Nothing -> return True
-  if hasToRun
-    then runDb (runJob () >> actualizeLastExecution kind)
-    else return ()
-  threadDelay msDelay
-  jobListener kind lastExecutionTooOld runJob msDelay
-- 
cgit v1.2.3