summaryrefslogtreecommitdiff
path: root/src/Utility
diff options
context:
space:
mode:
authorAndrew Schurman2016-06-12 23:57:08 -0700
committerJoey Hess2016-06-19 13:19:48 -0400
commit6589837d4c3e7c93d13bb778fccbb1b71cfe2b51 (patch)
treeab395fe303f278c194760f9854895a9b90ee254b /src/Utility
parent0e3d258f46e366e01abf28e173ef8fb7adf5a6dd (diff)
Write privdata files in binary rather than text
https://propellor.branchable.com/todo/bytes_in_privData__63__/
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)