diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-11-22 17:51:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-11-22 17:51:55 -0400 |
| commit | eeae91024285c85a7e77b1b44e501a63bced7154 (patch) | |
| tree | ece6c1d1e670e04001dd570a375ed9954078da0a /Command/DropKey.hs | |
| parent | 57adb0347bf4eb71ab846a2947680a20263449a2 (diff) | |
finished hlinting
Diffstat (limited to 'Command/DropKey.hs')
| -rw-r--r-- | Command/DropKey.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/DropKey.hs b/Command/DropKey.hs index 34010481d..aa72e1bbd 100644 --- a/Command/DropKey.hs +++ b/Command/DropKey.hs @@ -22,12 +22,12 @@ seek = [withKeys start] start :: SubCmdStartString start keyname = do backends <- Backend.list - let key = genKey (backends !! 0) keyname + let key = genKey (head backends) keyname present <- inAnnex key force <- Annex.flagIsSet "force" - if (not present) + if not present then return Nothing - else if (not force) + else if not force then error "dropkey is can cause data loss; use --force if you're sure you want to do this" else do showStart "dropkey" keyname |