From 490249b919aaf82527b81c88c88350fd478dbed9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 13 Jun 2016 18:56:52 -0400 Subject: add stopPropellorMessage --- src/Propellor/Exception.hs | 19 +------------------ 1 file changed, 1 insertion(+), 18 deletions(-) (limited to 'src/Propellor/Exception.hs') 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. -- cgit v1.3-2-g0d8e