summaryrefslogtreecommitdiff
path: root/src/Propellor/Property.hs
diff options
context:
space:
mode:
authorJoey Hess2015-10-10 14:56:22 -0400
committerJoey Hess2015-10-10 15:05:05 -0400
commitae380f085bc867f7405ef0a16c849864c6552e47 (patch)
tree22bd030a05f85bfeff90eaa48a87915edf9cdf27 /src/Propellor/Property.hs
parent28fe270223ed56ef8e7fd867573b5ba6a5a221c7 (diff)
tighten focus of Propellor module, adding Propellor.Base for all the exports
Diffstat (limited to 'src/Propellor/Property.hs')
-rw-r--r--src/Propellor/Property.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Propellor/Property.hs b/src/Propellor/Property.hs
index 3ab66ca3..c7fc555f 100644
--- a/src/Propellor/Property.hs
+++ b/src/Propellor/Property.hs
@@ -100,6 +100,10 @@ onChangeFlagOnFail flagfile = combineWith go
writeFile flagfile ""
removeFlagFile = whenM (doesFileExist flagfile) $ removeFile flagfile
+-- | Changes the description of a property.
+describe :: IsProp p => p -> Desc -> p
+describe = setDesc
+
-- | Alias for @flip describe@
(==>) :: IsProp (Property i) => Desc -> Property i -> Property i
(==>) = flip describe