summaryrefslogtreecommitdiff
path: root/Git
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-12-18 15:05:29 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-12-18 15:05:29 -0400
commit9a5f9fddc68475218ddb76027e00497f9a612984 (patch)
tree75153bcdec750cbfc8d8377ad3145f086d68c7a3 /Git
parent76a26745c2b022b4eee06a982958e71b27568959 (diff)
assistant: Fix OSX-specific bug that caused the startup scan to try to follow symlinks to other directories, and add their contents to the annex.
Diffstat (limited to 'Git')
-rw-r--r--Git/Objects.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/Objects.hs b/Git/Objects.hs
index d9d2c6701..bb492f558 100644
--- a/Git/Objects.hs
+++ b/Git/Objects.hs
@@ -27,7 +27,7 @@ listPackFiles r = filter (".pack" `isSuffixOf`)
listLooseObjectShas :: Repo -> IO [Sha]
listLooseObjectShas r = catchDefaultIO [] $
mapMaybe (extractSha . concat . reverse . take 2 . reverse . splitDirectories)
- <$> dirContentsRecursiveSkipping (== "pack") (objectsDir r)
+ <$> dirContentsRecursiveSkipping (== "pack") True (objectsDir r)
looseObjectFile :: Repo -> Sha -> FilePath
looseObjectFile r sha = objectsDir r </> prefix </> rest