mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

use relatedTempate in viaTmp

Browse source
This commit is contained in:
Joey Hess 2019-03-04 14:12:00 -04:00
parent 3cd19fb4d0
commit 1ec9e1494c
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/Tmp.hs
View file

@ -28,7 +28,7 @@ viaTmp :: (MonadMask m, MonadIO m) => (FilePath -> v -> m ()) -> FilePath -> v -
viaTmp a file content = bracketIO setup cleanup use viaTmp a file content = bracketIO setup cleanup use
where where
(dir, base) = splitFileName file (dir, base) = splitFileName file
template = base ++ ".tmp" template = relatedTemplate (base ++ ".tmp")
setup = do setup = do
createDirectoryIfMissing True dir createDirectoryIfMissing True dir
openTempFile dir template openTempFile dir template