diff options
Diffstat (limited to 'Git/Fsck.hs')
| -rw-r--r-- | Git/Fsck.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Git/Fsck.hs b/Git/Fsck.hs index f3e6db9f9..f85023dc1 100644 --- a/Git/Fsck.hs +++ b/Git/Fsck.hs @@ -104,6 +104,8 @@ findShas :: Bool -> String -> [Sha] findShas supportsNoDangling = catMaybes . map extractSha . concat . map words . filter wanted . lines where wanted l + -- Skip lines like "error in tree <sha>: duplicateEntries: contains duplicate file entries" + | "duplicateEntries" `isPrefixOf` l = False | supportsNoDangling = True | otherwise = not ("dangling " `isPrefixOf` l) |