aboutsummaryrefslogtreecommitdiff
path: root/Git/Repair.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-15 16:34:18 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-15 16:34:18 -0400
commita8d07025dd7477ffc9860d79a4dbc3345cc4cf9c (patch)
treeaffd6e04b05e8612f22b03dcecaf6313a22d42b4 /Git/Repair.hs
parentbfd6a508216bf0ef7ab75ea230f98487e71cc156 (diff)
repair: Fix bug in packed refs file exploding code that caused a .gitrefs directory to be created instead of .git/refs
Diffstat (limited to 'Git/Repair.hs')
-rw-r--r--Git/Repair.hs2
1 files changed, 1 insertions, 1 deletions
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)