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/SetKey.hs | |
| parent | 57adb0347bf4eb71ab846a2947680a20263449a2 (diff) | |
finished hlinting
Diffstat (limited to 'Command/SetKey.hs')
| -rw-r--r-- | Command/SetKey.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/SetKey.hs b/Command/SetKey.hs index e8d407b83..685872f73 100644 --- a/Command/SetKey.hs +++ b/Command/SetKey.hs @@ -28,7 +28,7 @@ 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 showStart "setkey" file return $ Just $ perform file key perform :: FilePath -> Key -> SubCmdPerform |