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 | c99d6a8151c753284f328f7158546fea2a8092ef (patch) | |
tree | 4f299b20a220cd5f8e81189ec3354c73340af7c4 /Git/Objects.hs | |
parent | fcf63843897abb5c3dec106c2701db192d5194f7 (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/Objects.hs')
-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 d9d2c67018..bb492f558d 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 |