From 6589837d4c3e7c93d13bb778fccbb1b71cfe2b51 Mon Sep 17 00:00:00 2001 From: Andrew Schurman Date: Sun, 12 Jun 2016 23:57:08 -0700 Subject: Write privdata files in binary rather than text https://propellor.branchable.com/todo/bytes_in_privData__63__/ --- src/Utility/FileMode.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Utility') 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) -- cgit v1.2.3