-- | -- Module : Configuration.Dotenv.Parse -- Copyright : © 2015-2017 Stack Builders Inc. -- License : MIT -- -- Maintainer : Stack Builders -- Stability : experimental -- Portability : portable -- -- Provides functionality to dump the contents of a ByteString -- to a file. module System.AtomicWrite.Writer.ByteString (atomicWriteFile, atomicWriteFileWithMode) where import System.AtomicWrite.Internal (closeAndRename, tempFileFor, maybeSetFileMode) import System.Posix.Types (FileMode) import Data.ByteString (ByteString, hPutStr) -- | Creates or modifies a file atomically on POSIX-compliant -- systems while preserving permissions. atomicWriteFile :: FilePath -- ^ The path where the file will be updated or created -> ByteString -- ^ The content to write to the file -> IO () atomicWriteFile = atomicWriteFileMaybeMode Nothing -- | Creates or modifies a file atomically on POSIX-compliant -- systems and updates permissions. atomicWriteFileWithMode :: FileMode -> FilePath -- ^ The path where the file will be updated or created -> ByteString -- ^ The content to write to the file -> IO () atomicWriteFileWithMode mode = atomicWriteFileMaybeMode $ Just mode -- | Helper function atomicWriteFileMaybeMode :: Maybe FileMode -> FilePath -- ^ The path where the file will be updated or created -> ByteString -- ^ The content to write to the file -> IO () atomicWriteFileMaybeMode mmode path text = tempFileFor path >>= \(tmpPath, h) -> hPutStr h text >> closeAndRename h tmpPath path >> maybeSetFileMode path mmode