allow test temp dir removal to fail (working around some problem on Windows)

1 files changed, 1 insertions, 1 deletions

diff --git a/Test.hs b/Test.hs
index 047bcf0bb..9223219d7 100644
--- a/Test.hs
+++ b/Test.hs
@@ -978,7 +978,7 @@ cleanup dir = do
 		recurseDir SystemFS dir >>=
 			filterM doesDirectoryExist >>=
 				mapM_ Utility.FileMode.allowWrite
-		removeDirectoryRecursive dir
+		void $ tryIO $ removeDirectoryRecursive dir
 	
 checklink :: FilePath -> Assertion
 checklink f = do