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:
parent
b8d9c18e98
commit
02cfef1f91
2 changed files with 4 additions and 3 deletions
|
@ -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"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue