diff options
| author |  Ben Gamari <bgamari.foss@gmail.com> | 2014-05-28 17:01:57 -0400 |
|---|---|---|
| committer | Ben Gamari <bgamari.foss@gmail.com> | 2014-05-28 17:03:40 -0400 |
| commit | 3e54d84fb90dac70b03360cf3259482e4ec16309 (patch) | |
| tree | bb9d4e2af7c3914e93eec1a946f2d40c94c32882 /Annex/Exception.hs | |
| parent | ac63e885d9dcb84a8d989452ef232827eeb86ddc (diff) | |
Use exceptions in place of deprecated MonadCatchIO-transformers
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 |