diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-10-27 19:10:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-10-27 19:11:00 -0400 |
| commit | 33e18d3d02865ac0677fc1f22de2352b92f184a8 (patch) | |
| tree | 3c25c3e19f45faee23fe5a3b445966c18cbc6c5a /Command/Unannex.hs | |
| parent | f66f97c90e5692ab34cb95e6facdec194a72456b (diff) | |
cleanup
Diffstat (limited to 'Command/Unannex.hs')
| -rw-r--r-- | Command/Unannex.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/Command/Unannex.hs b/Command/Unannex.hs index 76100c8c3..b39dc0a5f 100644 --- a/Command/Unannex.hs +++ b/Command/Unannex.hs @@ -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 |