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

cleanup

Browse source
This commit is contained in:
Joey Hess 2011-10-27 19:10:10 -04:00
parent f66f97c90e
commit 33e18d3d02
2 changed files with 5 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Command/Unannex.hs
View file

@ -9,7 +9,6 @@ module Command.Unannex where
import Common.Annex
import Command
import qualified Command.Drop
import qualified Annex
import qualified Annex.Queue
import Utility.FileMode
@ -44,11 +43,7 @@ start file = isAnnexed file $ \(key, _) -> do
else stop
perform :: FilePath -> Key -> CommandPerform
perform file key = do
ok <- Command.Drop.dropKey key (Just 0) -- always remove
if ok
then next $ cleanup file key
else stop
perform file key = next $ cleanup file key
cleanup :: FilePath -> Key -> CommandCleanup
cleanup file key = do