diff options
| author | Joey Hess <joey@kitenet.net> | 2014-02-24 19:40:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-24 19:40:14 -0400 |
| commit | 878e7471fa09dcc36b478e1ac1fd305d5a90b7bf (patch) | |
| tree | d552b8faa43078e3dfe1f8b10063ec566eced4e2 /Utility/FileMode.hs | |
| parent | d80c547a7d1261f158148ca85e627cc2ecb005f2 (diff) | |
| download | git-repair-878e7471fa09dcc36b478e1ac1fd305d5a90b7bf.tar.gz | |
merge from git-annex
Diffstat (limited to 'Utility/FileMode.hs')
| -rw-r--r-- | Utility/FileMode.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |