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

better var name

Browse source
This commit is contained in:
Joey Hess 2011-09-15 12:37:27 -04:00
parent 5c96411314
commit 81984e60ac
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Drop.hs
View file

@ -29,12 +29,12 @@ seek = [withNumCopies start]
{- Indicates a file's content is not wanted anymore, and should be removed {- Indicates a file's content is not wanted anymore, and should be removed
- if it's safe to do so. -} - if it's safe to do so. -}
start :: CommandStartAttrFile start :: CommandStartAttrFile
start (file, attr) = isAnnexed file $ \(key, _) -> do start (file, numcopies) = isAnnexed file $ \(key, _) -> do
present <- inAnnex key present <- inAnnex key
if present if present
then do then do
showStart "drop" file showStart "drop" file
next $ perform key $ readMaybe attr next $ perform key $ readMaybe numcopies
else stop else stop
perform :: Key -> Maybe Int -> CommandPerform perform :: Key -> Maybe Int -> CommandPerform