From 71d1effb4f2b6224780afea37994713a6169baf8 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 5 Jan 2013 15:09:43 -0400
Subject: squelch warning

---
 Command/Add.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Command')

diff --git a/Command/Add.hs b/Command/Add.hs
index 7b2d5fd30..823d8f569 100644
--- a/Command/Add.hs
+++ b/Command/Add.hs
@@ -60,8 +60,8 @@ lockDown file = do
 	tmp <- fromRepo gitAnnexTmpDir
 	createAnnexDirectory tmp
 	liftIO $ do
-		(tmpfile, handle) <- openTempFile tmp (takeFileName file)
-		hClose handle
+		(tmpfile, h) <- openTempFile tmp (takeFileName file)
+		hClose h
 		nukeFile tmpfile
 		createLink file tmpfile
 		return $ KeySource { keyFilename = file , contentLocation = tmpfile }
-- 
cgit v1.2.3