fix
This commit is contained in:
parent
1dc8ebabc1
commit
b6379bc101
1 changed files with 1 additions and 1 deletions
|
@ -63,7 +63,7 @@ withTmpDir template a = do
|
|||
withTmpDirIn :: FilePath -> Template -> (FilePath -> IO a) -> IO a
|
||||
withTmpDirIn tmpdir template = bracket create remove
|
||||
where
|
||||
remove d = whenM (doesDirectoryExist d) $
|
||||
remove d = whenM (doesDirectoryExist d) $ do
|
||||
#if mingw32_HOST_OS
|
||||
-- Windows will often refuse to delete a file
|
||||
-- after a process has just written to it and exited.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue