wip RawFilePath
Goal is to make git-annex faster by using ByteString for all the worktree traversal. For now, this is focusing on Command.Find, in order to benchmark how much it helps. (All other commands are temporarily disabled) Currently in a very bad unbuildable in-between state.
This commit is contained in:
parent
1f035c0d66
commit
6a97ff6b3a
25 changed files with 258 additions and 200 deletions
|
@ -284,7 +284,7 @@ findUncorruptedCommit missing goodcommits branch r = do
|
|||
, Param "--format=%H"
|
||||
, Param (fromRef branch)
|
||||
] r
|
||||
let branchshas = catMaybes $ map extractSha ls
|
||||
let branchshas = catMaybes $ map (extractSha . decodeBS) ls
|
||||
reflogshas <- RefLog.get branch r
|
||||
-- XXX Could try a bit harder here, and look
|
||||
-- for uncorrupted old commits in branches in the
|
||||
|
@ -313,7 +313,7 @@ verifyCommit missing goodcommits commit r
|
|||
, Param "--format=%H %T"
|
||||
, Param (fromRef commit)
|
||||
] r
|
||||
let committrees = map parse ls
|
||||
let committrees = map (parse . decodeBS) ls
|
||||
if any isNothing committrees || null committrees
|
||||
then do
|
||||
void cleanup
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue