From ae380f085bc867f7405ef0a16c849864c6552e47 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sat, 10 Oct 2015 14:56:22 -0400
Subject: tighten focus of Propellor module, adding Propellor.Base for all the
 exports

---
 src/Propellor/Property.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Propellor/Property.hs')

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
-- 
cgit v1.3-2-g0d8e