diff options
Diffstat (limited to 'Propellor/Exception.hs')
| -rw-r--r-- | Propellor/Exception.hs | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/Propellor/Exception.hs b/Propellor/Exception.hs deleted file mode 100644 index f6fd15f1..00000000 --- a/Propellor/Exception.hs +++ /dev/null @@ -1,18 +0,0 @@ -{-# LANGUAGE PackageImports #-} - -module Propellor.Exception where - -import qualified "MonadCatchIO-transformers" Control.Monad.CatchIO as M -import Control.Exception - -import Propellor.Types -import Propellor.Message - --- | Catches IO exceptions and returns FailedChange. -catchPropellor :: Propellor Result -> Propellor Result -catchPropellor a = either err return =<< tryPropellor a - where - err e = warningMessage (show e) >> return FailedChange - -tryPropellor :: Propellor a -> Propellor (Either IOException a) -tryPropellor = M.try |
