mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
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. * reinject: Fix support for operating on multiple pairs of files and keys.
* importfeed: Support -J * importfeed: Support -J
* importfeed: Support --json-progress * 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 -- 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 :: CommandParams -> CommandSeek
seek = withNothing $ do seek = withNothing $ do
l <- workTreeItems ww []
withFilesNotInGit withFilesNotInGit
(CheckGitIgnore False) (CheckGitIgnore False)
(WarnUnmatchWorkTreeItems "uninit") (WarnUnmatchWorkTreeItems "uninit")
checksymlinks checksymlinks
l =<< workTreeItems ww []
withFilesInGitAnnex ww (Command.Unannex.seeker True) l withFilesInGitAnnex ww (Command.Unannex.seeker True)
=<< workTreeItems ww []
finish finish
where where
ww = WarnUnmatchLsFiles "uninit" ww = WarnUnmatchLsFiles "uninit"