cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-04-09 00:57:57 -04:00
parent 99ab46498c
commit 335cce275a
Failed to extract signature
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Propellor/Property/Scheduled.hs
View File

@ -20,6 +20,7 @@ import qualified Data.Map as M
period :: Property -> Recurrance -> Property period :: Property -> Recurrance -> Property
period prop recurrance = Property desc $ do period prop recurrance = Property desc $ do
lasttime <- getLastChecked (propertyDesc prop) lasttime <- getLastChecked (propertyDesc prop)
print lasttime
nexttime <- fmap startTime <$> nextTime schedule lasttime nexttime <- fmap startTime <$> nextTime schedule lasttime
t <- localNow t <- localNow
if Just t >= nexttime if Just t >= nexttime