From 6bfa534aa4d7552c4ccfdb9523b55da19fac8883 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 17 Oct 2010 10:47:46 -0400
Subject: git annex drop -- do not try to drop if key is not in backend

---
 Commands.hs | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

(limited to 'Commands.hs')

diff --git a/Commands.hs b/Commands.hs
index 5931bf0a9..b446dbfac 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -165,13 +165,20 @@ getCmd file = notinBackend file err $ \(key, backend) -> do
  - if it's safe to do so. -}
 dropCmd :: FilePath -> Annex ()
 dropCmd file = notinBackend file err $ \(key, backend) -> do
-	force <- Annex.flagIsSet Force
-	if (not force)
-		then requireEnoughCopies key
-		else return ()
-	success <- Backend.removeKey backend key
-	if (success)
-		then do
+	inbackend <- Backend.hasKey key
+	if (not inbackend)
+		then return () -- no-op
+		else do
+			force <- Annex.flagIsSet Force
+			if (not force)
+				then requireEnoughCopies key
+				else return ()
+			success <- Backend.removeKey backend key
+			if (success)
+				then cleanup key
+				else error $ "backend refused to drop " ++ file
+	where
+		cleanup key = do
 			logStatus key ValueMissing
 			inannex <- inAnnex key
 			if (inannex)
@@ -181,8 +188,6 @@ dropCmd file = notinBackend file err $ \(key, backend) -> do
 					liftIO $ removeFile loc
 					return ()
 				else return ()
-		else error $ "backend refused to drop " ++ file
-	where
 		err = error $ "not annexed " ++ file
 
 {- Fixes the symlink to an annexed file. -}
-- 
cgit v1.2.3