Fix test failure on NFS when cleaning up gpg temp directory
Using removePathForcibly avoids concurrent removal problems. The i386ancient build still uses an old version of ghc and directory that do not include removePathForcibly though. Sponsored-by: Dartmouth College's Datalad project
This commit is contained in:
parent
47d0ea71e6
commit
17b20a2450
4 changed files with 40 additions and 4 deletions
|
@ -264,7 +264,7 @@ isolateGitConfig a = Utility.Tmp.Dir.withTmpDir "testhome" $ \tmphome -> do
|
|||
|
||||
removeDirectoryForCleanup :: FilePath -> IO ()
|
||||
#if MIN_VERSION_directory(1,2,7)
|
||||
removeDirectoryForCleanup = removePathForcibly
|
||||
removeDirectoryForCleanup = removePathForcibly
|
||||
#else
|
||||
removeDirectoryForCleanup = removeDirectoryRecursive
|
||||
#endif
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue