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

simplify

Browse source
This commit is contained in:
Joey Hess 2011-09-14 16:01:40 -04:00
parent 11994ebb3d
commit 59fe0b29a6
3 changed files with 3 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Drop.hs
View file

@ -34,10 +34,8 @@ start (file, attr) = isAnnexed file $ \(key, _) -> do
if present
then do
showStart "drop" file
next $ perform key numcopies
next $ perform key $ readMaybe attr
else stop
where
numcopies = readMaybe attr :: Maybe Int
perform :: Key -> Maybe Int -> CommandPerform
perform key numcopies = do