diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-12-14 12:55:53 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-12-14 12:55:53 -0400 |
commit | 5ca81d114d7ccf0ee984cb03f56ad6ec1d9499f0 (patch) | |
tree | 4b49c7c03e77f356dd3941070509a498d97a3290 /Utility/Tmp.hs | |
parent | 3a59749f2c0603872109a85c44234dd744d059cc (diff) | |
download | git-repair-5ca81d114d7ccf0ee984cb03f56ad6ec1d9499f0.tar.gz |
Merge from git-annex.
Diffstat (limited to 'Utility/Tmp.hs')
-rw-r--r-- | Utility/Tmp.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Tmp.hs b/Utility/Tmp.hs index 6a541cf..7255c14 100644 --- a/Utility/Tmp.hs +++ b/Utility/Tmp.hs @@ -15,20 +15,20 @@ import Control.Monad.IfElse import System.FilePath import System.Directory import Control.Monad.IO.Class +import System.PosixCompat.Files #ifndef mingw32_HOST_OS import System.Posix.Temp (mkdtemp) #endif import Utility.Exception import Utility.FileSystemEncoding -import Utility.PosixFiles type Template = String {- Runs an action like writeFile, writing to a temp file first and - then moving it into place. The temp file is stored in the same - directory as the final file to avoid cross-device renames. -} -viaTmp :: (MonadMask m, MonadIO m) => (FilePath -> String -> m ()) -> FilePath -> String -> m () +viaTmp :: (MonadMask m, MonadIO m) => (FilePath -> v -> m ()) -> FilePath -> v -> m () viaTmp a file content = bracketIO setup cleanup use where (dir, base) = splitFileName file |