diff options
Diffstat (limited to 'src/Utility/FileMode.hs')
| -rw-r--r-- | src/Utility/FileMode.hs | 5 |
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) |