mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
Git/Repair.hs
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)