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:
Joey Hess 2018-04-26 16:13:05 -04:00
parent bea0ad220a
commit 2fc768ce72
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 15 additions and 4 deletions

View file

@ -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