From 425bc1107aebdb701cdcee44da731dd918cd470d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 9 Jan 2015 13:11:56 -0400 Subject: revert parentDir change Reverts 2bba5bc22d049272d3328bfa6c452d3e2e50e86c Unfortunately, this caused breakage on Windows, and possibly elsewhere, because parentDir and takeDirectory do not behave the same when there is a trailing directory separator. --- Git/Repair.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Git/Repair.hs') diff --git a/Git/Repair.hs b/Git/Repair.hs index 2930b9a0c..bee9f2b50 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -244,7 +244,7 @@ explodePackedRefsFile r = do where makeref (sha, ref) = do let dest = localGitDir r fromRef ref - createDirectoryIfMissing True (takeDirectory dest) + createDirectoryIfMissing True (parentDir dest) unlessM (doesFileExist dest) $ writeFile dest (fromRef sha) -- cgit v1.2.3