diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-18 15:05:29 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-18 15:05:29 -0400 |
| commit | 9a5f9fddc68475218ddb76027e00497f9a612984 (patch) | |
| tree | 75153bcdec750cbfc8d8377ad3145f086d68c7a3 /Git | |
| parent | 76a26745c2b022b4eee06a982958e71b27568959 (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.hs | 2 |
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 |