From 878e7471fa09dcc36b478e1ac1fd305d5a90b7bf Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 24 Feb 2014 19:40:14 -0400
Subject: merge from git-annex

---
 Utility/FileMode.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'Utility/FileMode.hs')

diff --git a/Utility/FileMode.hs b/Utility/FileMode.hs
index 46c6a31..b17cadc 100644
--- a/Utility/FileMode.hs
+++ b/Utility/FileMode.hs
@@ -133,10 +133,8 @@ setSticky f = modifyFileMode f $ addModes [stickyMode]
  - as writeFile.
  -}
 writeFileProtected :: FilePath -> String -> IO ()
-writeFileProtected file content = do
-	h <- openFile file WriteMode
+writeFileProtected file content = withFile file WriteMode $ \h -> do
 	void $ tryIO $
 		modifyFileMode file $
 			removeModes [groupReadMode, otherReadMode]
 	hPutStr h content
-	hClose h
-- 
cgit v1.2.3