keep old directory support

Still needed for i386ancient build.

diff --git a/Test/Framework.hs b/Test/Framework.hs
index 8036e3b74dcca948f330c60b5f845a7ce1ca4f46..3927a55039dd8f6cd469b777c5976e31ad1a1094 100644 (file)
--- a/Test/Framework.hs
+++ b/Test/Framework.hs
@@ -263,7 +263,11 @@ isolateGitConfig a = Utility.Tmp.Dir.withTmpDir "testhome" $ \tmphome -> do
        a
 
 removeDirectoryForCleanup :: FilePath -> IO ()
-removeDirectoryForCleanup = removePathForcibly
+#if MIN_VERSION_directory(1,2,7)
+ removeDirectoryForCleanup = removePathForcibly
+#else
+removeDirectoryForCleanup = removeDirectoryRecursive
+#endif
 
 cleanup :: FilePath -> IO ()
 cleanup dir = whenM (doesDirectoryExist dir) $ do