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

fix

Browse source
This commit is contained in:
Joey Hess 2013-12-30 14:05:07 -04:00
parent 1dc8ebabc1
commit b6379bc101
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/Tmp.hs
View file

@ -63,7 +63,7 @@ withTmpDir template a = do
withTmpDirIn :: FilePath -> Template -> (FilePath -> IO a) -> IO a withTmpDirIn :: FilePath -> Template -> (FilePath -> IO a) -> IO a
withTmpDirIn tmpdir template = bracket create remove withTmpDirIn tmpdir template = bracket create remove
where where
remove d = whenM (doesDirectoryExist d) $ remove d = whenM (doesDirectoryExist d) $ do
#if mingw32_HOST_OS #if mingw32_HOST_OS
-- Windows will often refuse to delete a file -- Windows will often refuse to delete a file
-- after a process has just written to it and exited. -- after a process has just written to it and exited.