diff options
Diffstat (limited to 'Annex/Exception.hs')
| -rw-r--r-- | Annex/Exception.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Exception.hs b/Annex/Exception.hs index 11613d51b..41a9ed921 100644 --- a/Annex/Exception.hs +++ b/Annex/Exception.hs @@ -21,7 +21,7 @@ module Annex.Exception ( catchAnnex, ) where -import qualified "MonadCatchIO-transformers" Control.Monad.CatchIO as M +import qualified Control.Monad.Catch as M import Control.Exception import Common.Annex @@ -43,7 +43,7 @@ tryAnnexIO = M.try {- throw in the Annex monad -} throwAnnex :: Exception e => e -> Annex a -throwAnnex = M.throw +throwAnnex = M.throwM {- catch in the Annex monad -} catchAnnex :: Exception e => Annex a -> (e -> Annex a) -> Annex a |