diff options
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 () |