add stopPropellorMessage

1 files changed, 1 insertions, 18 deletions

diff --git a/src/Propellor/Exception.hs b/src/Propellor/Exception.hs
index 2f9b1684..3ab783bf 100644
--- a/src/Propellor/Exception.hs
+++ b/src/Propellor/Exception.hs
@@ -3,30 +3,13 @@
 module Propellor.Exception where
 
 import Propellor.Types
+import Propellor.Types.Exception
 import Propellor.Message
 import Utility.Exception
 
 import Control.Exception (AsyncException)
 import Control.Monad.Catch
 import Control.Monad.IO.Class (MonadIO)
-import Data.Typeable
-
--- | Normally when an exception is encountered while propellor is 
--- ensuring a property, the property fails, but propellor robustly 
--- continues on to the next property.
---
--- This is the only exception that will stop the entire propellor run,
--- preventing any subsequent properties of the Host from being ensured.
--- (When propellor is running in a container in a Host, this exception only
--- stops the propellor run in the container; the outer run in the Host
--- continues.)
---
--- You should only throw this exception when things are so badly messed up
--- that it's best for propellor to not try to do anything else.
-data StopPropellorException = StopPropellorException String
-	deriving (Show, Typeable)
-
-instance Exception StopPropellorException
 
 -- | Catches all exceptions (except for `StopPropellorException` and
 -- `AsyncException`) and returns FailedChange.