summaryrefslogtreecommitdiff
path: root/Command/Drop.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Drop.hs')
-rw-r--r--Command/Drop.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs
index 52b724e62..05c956fdd 100644
--- a/Command/Drop.hs
+++ b/Command/Drop.hs
@@ -29,11 +29,11 @@ seek = [withAttrFilesInGit "annex.numcopies" start]
start :: CommandStartAttrFile
start (file, attr) = isAnnexed file $ \(key, backend) -> do
inbackend <- Backend.hasKey key
- if not inbackend
- then return Nothing
- else do
+ if inbackend
+ then do
showStart "drop" file
- return $ Just $ perform key backend numcopies
+ next $ perform key backend numcopies
+ else stop
where
numcopies = readMaybe attr :: Maybe Int
@@ -41,8 +41,8 @@ perform :: Key -> Backend Annex -> Maybe Int -> CommandPerform
perform key backend numcopies = do
success <- Backend.removeKey backend key numcopies
if success
- then return $ Just $ cleanup key
- else return Nothing
+ then next $ cleanup key
+ else stop
cleanup :: Key -> CommandCleanup
cleanup key = do