From a8d07025dd7477ffc9860d79a4dbc3345cc4cf9c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 15 Jan 2014 16:34:18 -0400 Subject: repair: Fix bug in packed refs file exploding code that caused a .gitrefs directory to be created instead of .git/refs --- 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 3ae9c9faa..2c0983609 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -231,7 +231,7 @@ explodePackedRefsFile r = do nukeFile f where makeref (sha, ref) = do - let dest = localGitDir r ++ show ref + let dest = localGitDir r show ref createDirectoryIfMissing True (parentDir dest) unlessM (doesFileExist dest) $ writeFile dest (show sha) -- cgit v1.2.3