avoid git annex info remote buffering list of keys
This leaves git annex unused --from remote still using loggedKeysFor and buffering more than ought to be necessary, but I can't see a way to improve that.
This commit is contained in:
parent
bea0ad220a
commit
2fc768ce72
3 changed files with 15 additions and 4 deletions
|
@ -525,7 +525,11 @@ cachedRemoteData u = do
|
|||
case M.lookup u (repoData s) of
|
||||
Just v -> return v
|
||||
Nothing -> do
|
||||
v <- foldKeys <$> lift (loggedKeysFor u)
|
||||
let combinedata d uk = finishCheck uk >>= \case
|
||||
Nothing -> return d
|
||||
Just k -> return $ addKey k d
|
||||
v <- lift $ foldM combinedata emptyKeyData
|
||||
=<< loggedKeysFor' u
|
||||
put s { repoData = M.insert u v (repoData s) }
|
||||
return v
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue