diff options
| author | Joris | 2015-10-01 14:10:45 +0200 |
|---|---|---|
| committer | Joris | 2015-10-01 14:10:45 +0200 |
| commit | fff7336e06ab4c98adda3fea8a86c7d4d4b9b9bb (patch) | |
| tree | 702cec84587d18e692e6877557a05f15cbd5fc4f /src/server/Model/Job.hs | |
| parent | d7f737db7329acfedb87c5ad02a56023a9670fe4 (diff) | |
| download | budget-fff7336e06ab4c98adda3fea8a86c7d4d4b9b9bb.tar.gz budget-fff7336e06ab4c98adda3fea8a86c7d4d4b9b9bb.tar.bz2 budget-fff7336e06ab4c98adda3fea8a86c7d4d4b9b9bb.zip | |
Factor job listener
Diffstat (limited to 'src/server/Model/Job.hs')
| -rw-r--r-- | src/server/Model/Job.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/server/Model/Job.hs b/src/server/Model/Job.hs index 3d5df96..5b0d89d 100644 --- a/src/server/Model/Job.hs +++ b/src/server/Model/Job.hs @@ -1,6 +1,7 @@ module Model.Job ( getLastExecution , actualizeLastExecution + , actualizeLastCheck ) where import Control.Monad.IO.Class (liftIO) @@ -24,4 +25,9 @@ actualizeLastExecution kind = do jobKindDefined <- isJust <$> selectFirst [JobKind ==. kind] [] if jobKindDefined then updateWhere [JobKind ==. kind] [JobLastExecution =. Just now] - else insert (Job kind (Just now)) >> return () + else insert (Job kind (Just now) (Just now)) >> return () + +actualizeLastCheck :: JobKind -> Persist () +actualizeLastCheck kind = do + now <- liftIO getCurrentTime + updateWhere [JobKind ==. kind] [JobLastCheck =. Just now] |