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/PreCommit.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Command/PreCommit.hs')

diff --git a/Command/PreCommit.hs b/Command/PreCommit.hs
index a15510bd9..d4e5c04b9 100644
--- a/Command/PreCommit.hs
+++ b/Command/PreCommit.hs
@@ -28,7 +28,7 @@ start file = return $ Just $ perform file
 perform :: FilePath -> SubCmdPerform
 perform file = do
 	pairs <- Backend.chooseBackends [file]
-	ok <- doSubCmd $ Command.Add.start $ pairs !! 0
+	ok <- doSubCmd $ Command.Add.start $ head pairs
 	if ok
 		then return $ Just $ cleanup file
 		else error $ "failed to add " ++ file ++ "; canceling commit"
-- 
cgit v1.2.3