From 6cec01842b21aa88f2055799a2c153711aeda399 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 30 Dec 2013 13:41:11 -0400 Subject: fix --- Utility/Tmp.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Utility') 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 -- cgit v1.2.3