summaryrefslogtreecommitdiff
path: root/Propellor/Property
diff options
context:
space:
mode:
authorJoey Hess2014-04-09 00:57:57 -0400
committerJoey Hess2014-04-09 00:57:57 -0400
commit335cce275afb78931416748c9e9acabb22c68f64 (patch)
treeb6f31f296792f09ebb12f50854e69fa20d44d3cd /Propellor/Property
parent99ab46498c55c447cad1dfbe668a4b50204edea3 (diff)
propellor spin
Diffstat (limited to 'Propellor/Property')
-rw-r--r--Propellor/Property/Scheduled.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Propellor/Property/Scheduled.hs b/Propellor/Property/Scheduled.hs
index 42ff0068..2e7ae060 100644
--- a/Propellor/Property/Scheduled.hs
+++ b/Propellor/Property/Scheduled.hs
@@ -20,6 +20,7 @@ import qualified Data.Map as M
period :: Property -> Recurrance -> Property
period prop recurrance = Property desc $ do
lasttime <- getLastChecked (propertyDesc prop)
+ print lasttime
nexttime <- fmap startTime <$> nextTime schedule lasttime
t <- localNow
if Just t >= nexttime