diff options
| author | Joey Hess <joey@kitenet.net> | 2014-05-31 20:39:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-05-31 20:43:23 -0400 |
| commit | 4f70fceb3a79f2c2b746407768faf363d11c11a4 (patch) | |
| tree | 3f0c05ed545b761bbe3f07576d1ef0259a48c4af /src/Propellor/Engine.hs | |
| parent | 6b835c5eeb352718a11e707a0e10d2bc5092782b (diff) | |
got rid of the Attr -> Attr SetAttr hack, and use monoids for Attr
The SetAttr hack used to be needed because the hostname was part of the
Attr, and was required to be present. Now that it's moved to Host, let's
get rid of that, since it tended to waste CPU.
Diffstat (limited to 'src/Propellor/Engine.hs')
| -rw-r--r-- | src/Propellor/Engine.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Engine.hs b/src/Propellor/Engine.hs index 1fba6a23..7cee42e8 100644 --- a/src/Propellor/Engine.hs +++ b/src/Propellor/Engine.hs @@ -20,7 +20,7 @@ runPropellor host a = runReaderT (runWithHost a) host mainProperties :: Host -> IO () mainProperties host = do r <- runPropellor host $ - ensureProperties [Property "overall" (ensureProperties $ hostProperties host) id] + ensureProperties [Property "overall" (ensureProperties $ hostProperties host) mempty] setTitle "propellor: done" hFlush stdout case r of |