started converting Ref from String to ByteString
This should make code that reads shas and refs from git faster. Does not compile yet, a lot needs to be done still.
This commit is contained in:
parent
6e9714612b
commit
279991604d
17 changed files with 80 additions and 51 deletions
|
@ -139,7 +139,8 @@ isMissing s r = either (const True) (const False) <$> tryIO dump
|
|||
] r
|
||||
|
||||
findShas :: [String] -> [Sha]
|
||||
findShas = catMaybes . map extractSha . concat . map words . filter wanted
|
||||
findShas = catMaybes . map (extractSha . encodeBS')
|
||||
. concat . map words . filter wanted
|
||||
where
|
||||
wanted l = not ("dangling " `isPrefixOf` l)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue