summaryrefslogtreecommitdiff
path: root/src/Propellor/Info.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-24 16:55:31 -0400
committerJoey Hess2016-03-24 16:55:31 -0400
commit04c973a4ef966e4f3da8d8bda8b3eb489cd4fbf8 (patch)
treeca04608becfa2e7ca92c86f25e19edf7fda94444 /src/Propellor/Info.hs
parentf5e7596cb9183158644fdd2df9996871dc0a8efa (diff)
refactor
Diffstat (limited to 'src/Propellor/Info.hs')
-rw-r--r--src/Propellor/Info.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Info.hs b/src/Propellor/Info.hs
index 4827ba8a..071bf4c2 100644
--- a/src/Propellor/Info.hs
+++ b/src/Propellor/Info.hs
@@ -14,13 +14,13 @@ import Control.Applicative
import Prelude
pureInfoProperty :: (IsInfo v) => Desc -> v -> Property (HasInfo + UnixLike)
-pureInfoProperty desc v = pureInfoProperty' desc (addInfo mempty v)
+pureInfoProperty desc v = pureInfoProperty' desc (toInfo v)
pureInfoProperty' :: Desc -> Info -> Property (HasInfo + UnixLike)
pureInfoProperty' desc i = addInfoProperty p i
where
p :: Property UnixLike
- p = mkProperty ("has " ++ desc) (return NoChange)
+ p = property ("has " ++ desc) (return NoChange)
-- | Gets a value from the host's Info.
askInfo :: (IsInfo v) => Propellor v