Revert "don't use writeFileProtected on windows"

This reverts commit c698d34b03.
This commit is contained in:
Joey Hess 2013-12-06 21:24:34 -04:00
parent 456a82965e
commit 7ac6090088

View file

@ -133,7 +133,6 @@ setSticky f = modifyFileMode f $ addModes [stickyMode]
- as writeFile.
-}
writeFileProtected :: FilePath -> String -> IO ()
#ifndef mingw32_HOST_OS
writeFileProtected file content = do
h <- openFile file WriteMode
void $ tryIO $
@ -141,6 +140,3 @@ writeFileProtected file content = do
removeModes [groupReadMode, otherReadMode]
hPutStr h content
hClose h
#else
writeFileProtected = writeFile
#endif