repair: Fix bug in packed refs file exploding code that caused a .gitrefs directory to be created instead of .git/refs

This commit is contained in:
Joey Hess 2014-01-15 16:34:18 -04:00
parent fa1de753d7
commit 4e19e87921
2 changed files with 3 additions and 1 deletions

View file

@ -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)