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/FromKey.hs | |
parent | 57adb0347bf4eb71ab846a2947680a20263449a2 (diff) |
finished hlinting
Diffstat (limited to 'Command/FromKey.hs')
-rw-r--r-- | Command/FromKey.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/FromKey.hs b/Command/FromKey.hs index f25de23a2..eb9ad5e51 100644 --- a/Command/FromKey.hs +++ b/Command/FromKey.hs @@ -29,10 +29,10 @@ start file = do keyname <- Annex.flagGet "key" when (null keyname) $ error "please specify the key with --key" backends <- Backend.list - let key = genKey (backends !! 0) keyname + let key = genKey (head backends) keyname inbackend <- Backend.hasKey key - unless (inbackend) $ error $ + unless inbackend $ error $ "key ("++keyname++") is not present in backend" showStart "fromkey" file return $ Just $ perform file key |