summaryrefslogtreecommitdiff
path: root/Utility/Tmp.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2017-12-14 12:55:53 -0400
committerJoey Hess <joeyh@joeyh.name>2017-12-14 12:55:53 -0400
commit5ca81d114d7ccf0ee984cb03f56ad6ec1d9499f0 (patch)
tree4b49c7c03e77f356dd3941070509a498d97a3290 /Utility/Tmp.hs
parent3a59749f2c0603872109a85c44234dd744d059cc (diff)
downloadgit-repair-5ca81d114d7ccf0ee984cb03f56ad6ec1d9499f0.tar.gz
Merge from git-annex.
Diffstat (limited to 'Utility/Tmp.hs')
-rw-r--r--Utility/Tmp.hs4
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