diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-10 11:02:29 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-10 11:02:29 -0400 |
| commit | 222e2fe8a4cc555840ce7e2f5f9015a21f325d37 (patch) | |
| tree | a4144ad7aa1d4b08247d8de6043ce9cb3f9087ab /Propellor | |
| parent | 7a0074454bbae2506c102a57add9af17a32907cc (diff) | |
propellor spin
Diffstat (limited to 'Propellor')
| -rw-r--r-- | Propellor/Property.hs | 4 | ||||
| -rw-r--r-- | Propellor/Property/Scheduled.hs | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/Propellor/Property.hs b/Propellor/Property.hs index c2a8972e..ca492e33 100644 --- a/Propellor/Property.hs +++ b/Propellor/Property.hs @@ -3,6 +3,7 @@ module Propellor.Property where import System.Directory import Control.Monad import Data.Monoid +import Control.Monad.IfElse import Propellor.Types import Propellor.Engine @@ -54,7 +55,8 @@ flagFile property flagfile = Property (propertyDesc property) $ go False = do r <- ensureProperty property when (r == MadeChange) $ - writeFile flagfile "" + unlessM (doesFileExist flagfile) $ + writeFile flagfile "" return r --- | Whenever a change has to be made for a Property, causes a hook diff --git a/Propellor/Property/Scheduled.hs b/Propellor/Property/Scheduled.hs index bef2a297..827c648c 100644 --- a/Propellor/Property/Scheduled.hs +++ b/Propellor/Property/Scheduled.hs @@ -21,7 +21,6 @@ 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 |