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 >>=
|
recurseDir SystemFS dir >>=
|
||||||
filterM doesDirectoryExist >>=
|
filterM doesDirectoryExist >>=
|
||||||
mapM_ Utility.FileMode.allowWrite
|
mapM_ Utility.FileMode.allowWrite
|
||||||
removeDirectoryRecursive dir
|
void $ tryIO $ removeDirectoryRecursive dir
|
||||||
|
|
||||||
checklink :: FilePath -> Assertion
|
checklink :: FilePath -> Assertion
|
||||||
checklink f = do
|
checklink f = do
|
||||||
|
|
Loading…
Add table
Reference in a new issue