remove support for directory < 1.2.7
The build depends already require 1.2.7, so these old ifdefs must be unnecessary.
This commit is contained in:
parent
8f00cca06e
commit
d41e6990c0
2 changed files with 0 additions and 8 deletions
|
@ -326,11 +326,7 @@ setTestEnv a = Utility.Tmp.Dir.withTmpDir "testhome" $ \tmphome -> do
|
|||
a
|
||||
|
||||
removeDirectoryForCleanup :: FilePath -> IO ()
|
||||
#if MIN_VERSION_directory(1,2,7)
|
||||
removeDirectoryForCleanup = removePathForcibly
|
||||
#else
|
||||
removeDirectoryForCleanup = removeDirectoryRecursive
|
||||
#endif
|
||||
|
||||
cleanup :: FilePath -> IO ()
|
||||
cleanup dir = whenM (doesDirectoryExist dir) $ do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue