summaryrefslogtreecommitdiff
path: root/src/Utility
diff options
context:
space:
mode:
Diffstat (limited to 'src/Utility')
-rw-r--r--src/Utility/FileMode.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Utility/FileMode.hs b/src/Utility/FileMode.hs
index bb3780c6..3068d55a 100644
--- a/src/Utility/FileMode.hs
+++ b/src/Utility/FileMode.hs
@@ -13,6 +13,7 @@ module Utility.FileMode (
) where
import System.IO
+import qualified Data.ByteString.Lazy as L
import Control.Monad
import System.PosixCompat.Types
import Utility.PosixFiles
@@ -166,3 +167,7 @@ writeFileProtected' file writer = withUmask 0o0077 $
withFile file WriteMode $ \h -> do
void $ tryIO $ modifyFileMode file $ removeModes otherGroupModes
writer h
+
+writeBytesProtected :: FilePath -> L.ByteString -> IO ()
+writeBytesProtected file content = writeFileProtected' file
+ (`L.hPutStr` content)