mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

1
CHANGELOG
View file

@ -49,6 +49,7 @@ git-annex (10.20230408) UNRELEASED; urgency=medium
* reinject: Fix support for operating on multiple pairs of files and keys.
* importfeed: Support -J
* importfeed: Support --json-progress
* uninit: Avoid buffering the names of all annexed files in memory.
-- Joey Hess <id@joeyh.name> Sat, 08 Apr 2023 13:57:18 -0400

6
Command/Uninit.hs
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"