diff --git a/Makefile b/Makefile index afaf0aa..91cb3dc 100644 --- a/Makefile +++ b/Makefile @@ -1,8 +1,10 @@ -run: build +run: pull build ./propellor -build: deps dist/setup-config +pull: git pull + +build: deps dist/setup-config cabal build $(MAKE) tags ln -sf dist/build/propellor/propellor diff --git a/Property.hs b/Property.hs index f7dcccd..4aba094 100644 --- a/Property.hs +++ b/Property.hs @@ -59,7 +59,7 @@ combineProperties desc ps = IOProperty desc $ go ps NoChange _ -> go ls (combineResult r rs) ensureProperty :: Property -> IO Result -ensureProperty = catchDefaultIO FailedChange . ensureProperty' +ensureProperty = catchDefaultIO FailedChange . ensureProperty' ensureProperty' :: Property -> IO Result ensureProperty' (FileProperty _ f a) = go =<< doesFileExist f @@ -81,7 +81,7 @@ ensureProperty' (IOProperty _ a) = a ensureProperties :: [Property] -> IO () ensureProperties ps = do - r <- ensureProperties' ps + r <- ensureProperties' [propertyList "overall" ps] case r of FailedChange -> exitWith (ExitFailure 1) _ -> exitWith ExitSuccess