From 47d0ea71e66517e5da259f5b910ceb80e56623ef Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 19 Apr 2022 13:28:02 -0400
Subject: [PATCH] keep old directory support

Still needed for i386ancient build.
---
 Test/Framework.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Test/Framework.hs b/Test/Framework.hs
index 8036e3b74d..3927a55039 100644
--- 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