diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-18 04:48:49 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-18 04:48:49 -0400 |
| commit | 5f6c3ad56490a8c3063f8daa1cd8b0a302b63ddd (patch) | |
| tree | a05856a744c7ce6a6be69db327e5b8afec013257 /Propellor/Engine.hs | |
| parent | 4e4fb9ab7ca13f5148c6d4b08f53f518429530a8 (diff) | |
All Property combinators now combine together their Attr settings.
So Attr settings can be made inside a propertyList, for example.
Diffstat (limited to 'Propellor/Engine.hs')
| -rw-r--r-- | Propellor/Engine.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Propellor/Engine.hs b/Propellor/Engine.hs index c697d853..55ce7f77 100644 --- a/Propellor/Engine.hs +++ b/Propellor/Engine.hs @@ -18,7 +18,7 @@ runPropellor attr a = runReaderT (runWithAttr a) attr mainProperties :: Attr -> [Property] -> IO () mainProperties attr ps = do r <- runPropellor attr $ - ensureProperties [property "overall" $ ensureProperties ps] + ensureProperties [Property "overall" (ensureProperties ps) id] setTitle "propellor: done" hFlush stdout case r of |