summaryrefslogtreecommitdiff
path: root/Annex/Exception.hs
diff options
context:
space:
mode:
authorGravatar Ben Gamari <bgamari.foss@gmail.com>2014-05-28 17:01:57 -0400
committerGravatar Ben Gamari <bgamari.foss@gmail.com>2014-05-28 17:03:40 -0400
commit3e54d84fb90dac70b03360cf3259482e4ec16309 (patch)
treebb9d4e2af7c3914e93eec1a946f2d40c94c32882 /Annex/Exception.hs
parentac63e885d9dcb84a8d989452ef232827eeb86ddc (diff)
Use exceptions in place of deprecated MonadCatchIO-transformers
Diffstat (limited to 'Annex/Exception.hs')
-rw-r--r--Annex/Exception.hs4
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