diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-10-04 00:34:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-10-04 00:34:04 -0400 |
| commit | ff21fd4a652cc6516d0e06ab885adf1c93eddced (patch) | |
| tree | a84f041317fdbdb07377459e725e165e0845b8c0 /Command/Add.hs | |
| parent | 1a96d4ab35ed5c2af95a1598620cbbd13bc295b3 (diff) | |
factor out Annex exception handling module
Diffstat (limited to 'Command/Add.hs')
| -rw-r--r-- | Command/Add.hs | 6 |
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 () |