diff options
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 |