summaryrefslogtreecommitdiff
path: root/Command/Add.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-04 00:34:04 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-04 00:34:04 -0400
commitff21fd4a652cc6516d0e06ab885adf1c93eddced (patch)
treea84f041317fdbdb07377459e725e165e0845b8c0 /Command/Add.hs
parent1a96d4ab35ed5c2af95a1598620cbbd13bc295b3 (diff)
factor out Annex exception handling module
Diffstat (limited to 'Command/Add.hs')
-rw-r--r--Command/Add.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/Command/Add.hs b/Command/Add.hs
index c66c38131..299b5f36e 100644
--- a/Command/Add.hs
+++ b/Command/Add.hs
@@ -7,10 +7,8 @@
module Command.Add where
-import Control.Exception.Control (handle)
-import Control.Exception.Base (throwIO)
-
import AnnexCommon
+import Annex.Exception
import Command
import qualified Annex
import qualified AnnexQueue
@@ -58,7 +56,7 @@ undo file key e = do
logStatus key InfoMissing
rethrow
where
- rethrow = liftIO $ throwIO e
+ rethrow = throw e
-- fromAnnex could fail if the file ownership is weird
tryharder :: IOException -> Annex ()