From 0cb1a0a605640770f7ef55c836a46912b6b982a3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 30 Dec 2013 13:41:11 -0400 Subject: [PATCH] fix --- Utility/Tmp.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Utility/Tmp.hs b/Utility/Tmp.hs index 5329467858..8b6d342f2f 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