From eeae91024285c85a7e77b1b44e501a63bced7154 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 22 Nov 2010 17:51:55 -0400
Subject: finished hlinting

---
 Command/SetKey.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Command/SetKey.hs')

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
-- 
cgit v1.2.3