From 335cce275afb78931416748c9e9acabb22c68f64 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 9 Apr 2014 00:57:57 -0400 Subject: propellor spin --- Propellor/Property/Scheduled.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Propellor') 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 -- cgit v1.2.3