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.

1 files changed, 5 insertions, 1 deletions

diff --git a/Command/Info.hs b/Command/Info.hs
index cc9c1b5fe0..c9a314056a 100644
--- a/Command/Info.hs
+++ b/Command/Info.hs
@@ -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