diff options
Diffstat (limited to 'Utility/Tmp.hs')
| -rw-r--r-- | Utility/Tmp.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/Tmp.hs b/Utility/Tmp.hs index 532946785..8b6d342f2 100644 --- a/Utility/Tmp.hs +++ b/Utility/Tmp.hs @@ -69,7 +69,8 @@ withTmpDirIn tmpdir template = bracket create remove -- after a process has just written to it and exited. -- Because it's crap, presumably. So, ignore failure -- to delete the temp directory. - void $ catchIO $ removeDirectoryRecursive d + _ <- tryIO $ removeDirectoryRecursive d + return () #else removeDirectoryRecursive d #endif |