diff options
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 |