uninit: Avoid buffering the names of all annexed files in memory

Oops, using the same list twice does prevent streaming in constant memory.

Sponsored-by: unqueued on Patreon
This commit is contained in:
Joey Hess 2023-05-11 13:25:46 -04:00
parent b8d9c18e98
commit 02cfef1f91
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 4 additions and 3 deletions

View file

@ -50,13 +50,13 @@ check = do
seek :: CommandParams -> CommandSeek
seek = withNothing $ do
l <- workTreeItems ww []
withFilesNotInGit
(CheckGitIgnore False)
(WarnUnmatchWorkTreeItems "uninit")
checksymlinks
l
withFilesInGitAnnex ww (Command.Unannex.seeker True) l
=<< workTreeItems ww []
withFilesInGitAnnex ww (Command.Unannex.seeker True)
=<< workTreeItems ww []
finish
where
ww = WarnUnmatchLsFiles "uninit"