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

This commit is contained in:
Joey Hess 2013-06-18 13:41:33 -04:00
parent 8830360829
commit 6ac3d33445

View file

@ -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