diff options
Diffstat (limited to 'Utility/Tmp.hs')
| -rw-r--r-- | Utility/Tmp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Tmp.hs b/Utility/Tmp.hs index 8b6d342f2..891ce5083 100644 --- a/Utility/Tmp.hs +++ b/Utility/Tmp.hs @@ -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. |