mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid warnings when built with ghc 7.6

Browse source
This commit is contained in:
Joey Hess 2013-06-02 15:01:58 -04:00
parent 91c9ae83f1
commit 92f036fcb4
4 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Add.hs
View file

@ -174,7 +174,7 @@ undo file key e = do
liftIO $ nukeFile file
catchAnnex (fromAnnex key file) tryharder
logStatus key InfoMissing
throw e
throwAnnex e
where
-- fromAnnex could fail if the file ownership is weird
tryharder :: IOException -> Annex ()