diff options
author | Joey Hess <joey@kitenet.net> | 2014-01-26 15:53:01 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-01-26 15:53:01 -0400 |
commit | 541178b499d084e4041ae4b9d62bf86f5a97c3ff (patch) | |
tree | c47863a99db0631890802909583ac5003dda416f /Command/DropKey.hs | |
parent | 257d1136e4178665fd52f14a2d430f9ad819d45f (diff) |
refactor
Diffstat (limited to 'Command/DropKey.hs')
-rw-r--r-- | Command/DropKey.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/DropKey.hs b/Command/DropKey.hs index 002633e58..125e6ded4 100644 --- a/Command/DropKey.hs +++ b/Command/DropKey.hs @@ -12,7 +12,6 @@ import Command import qualified Annex import Logs.Location import Annex.Content -import Types.Key def :: [Command] def = [noCommit $ command "dropkey" (paramRepeating paramKey) seek @@ -25,7 +24,7 @@ start :: Key -> CommandStart start key = stopUnless (inAnnex key) $ do unlessM (Annex.getState Annex.force) $ error "dropkey can cause data loss; use --force if you're sure you want to do this" - showStart "dropkey" (key2file key) + showStart' "dropkey" key Nothing next $ perform key perform :: Key -> CommandPerform |