From 6ac3d33445eb7827065f58d96311dc1f133f4d3a Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 18 Jun 2013 13:41:33 -0400
Subject: [PATCH] allow test temp dir removal to fail (working around some
 problem on Windows)

---
 Test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Test.hs b/Test.hs
index 047bcf0bb5..9223219d79 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