diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-03-24 16:55:31 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-24 16:55:31 -0400 |
| commit | 04c973a4ef966e4f3da8d8bda8b3eb489cd4fbf8 (patch) | |
| tree | ca04608becfa2e7ca92c86f25e19edf7fda94444 /src/Propellor/Info.hs | |
| parent | f5e7596cb9183158644fdd2df9996871dc0a8efa (diff) | |
refactor
Diffstat (limited to 'src/Propellor/Info.hs')
| -rw-r--r-- | src/Propellor/Info.hs | 4 |
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 |