allow test temp dir removal to fail (working around some problem on Windows)
This commit is contained in:
parent
8830360829
commit
6ac3d33445
1 changed files with 1 additions and 1 deletions
2
Test.hs
2
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
|
||||
|
|
Loading…
Reference in a new issue