diff options
author | Joey Hess <joey@kitenet.net> | 2010-11-08 19:26:37 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-11-08 19:26:37 -0400 |
commit | 1d32d902c95a49c53c46951641852c209476cb3d (patch) | |
tree | 56b7ae1ebb6da1b3924e4abbbe608aabf95aa172 /Command/DropKey.hs | |
parent | 8dd9f8e49eae081e7503facff6d5a53285194c09 (diff) |
Annexed file contents are now made unwritable and put in unwriteable directories, to avoid them accidentially being removed or modified. (Thanks Josh Triplett for the idea.)
Diffstat (limited to 'Command/DropKey.hs')
-rw-r--r-- | Command/DropKey.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/Command/DropKey.hs b/Command/DropKey.hs index 8076e6fd3..e0b20918c 100644 --- a/Command/DropKey.hs +++ b/Command/DropKey.hs @@ -7,12 +7,8 @@ module Command.DropKey where -import Control.Monad.State (liftIO) -import System.Directory - import Command import qualified Annex -import Locations import qualified Backend import LocationLog import Types @@ -36,9 +32,7 @@ start keyname = do perform :: Key -> SubCmdPerform perform key = do - g <- Annex.gitRepo - let loc = annexLocation g key - liftIO $ removeFile loc + removeAnnex key return $ Just $ cleanup key cleanup :: Key -> SubCmdCleanup |