diff options
Diffstat (limited to 'src/Propellor/Exception.hs')
| -rw-r--r-- | src/Propellor/Exception.hs | 19 |
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. |
