diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-30 13:41:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-30 13:41:11 -0400 |
| commit | 6cec01842b21aa88f2055799a2c153711aeda399 (patch) | |
| tree | 49dc22436e279322549b32529317815680c3eb0b | |
| parent | 1113d44acfbbe3ace6d5aec91860da7502328558 (diff) | |
fix
| -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 |