From 16ca22c60af39cc06db62215a1ac12cd5ae7a3c5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 2 Jun 2013 15:01:58 -0400 Subject: avoid warnings when built with ghc 7.6 --- Command/Add.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command/Add.hs') diff --git a/Command/Add.hs b/Command/Add.hs index 543d37136..fe1a6b13a 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -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 () -- cgit v1.2.3