From fa813945849f3e5998a61b1625f9bef20cd2fa13 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sat, 10 Oct 2015 15:09:47 -0400
Subject: propellor spin

---
 src/Propellor/Engine.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

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

diff --git a/src/Propellor/Engine.hs b/src/Propellor/Engine.hs
index dd3d4653..0fdbb995 100644
--- a/src/Propellor/Engine.hs
+++ b/src/Propellor/Engine.hs
@@ -26,6 +26,7 @@ import Propellor.Types
 import Propellor.Message
 import Propellor.Exception
 import Propellor.Info
+import Propellor.Property
 import Utility.Exception
 import Utility.PartialPrelude
 import Utility.Monad
@@ -62,13 +63,6 @@ runEndAction host res (EndAction desc a) = actionMessageOn (hostName host) desc
 	(ret, _s, _) <- runRWST (runWithHost (catchPropellor (a res))) host ()
 	return ret
 
--- | For when code running in the Propellor monad needs to ensure a
--- Property.
---
--- This can only be used on a Property that has NoInfo.
-ensureProperty :: Property NoInfo -> Propellor Result
-ensureProperty = catchPropellor . propertySatisfy
-
 -- | Ensures a list of Properties, with a display of each as it runs.
 ensureProperties :: [Property NoInfo] -> Propellor Result
 ensureProperties ps = ensure ps NoChange
-- 
cgit v1.3-2-g0d8e