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

add a comment

Browse source
This commit is contained in:
Joey Hess 2015-03-26 13:43:30 -04:00
parent 1d825a75fb
commit 32b3bed086
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/Committer.hs
View file

@ -286,6 +286,8 @@ handleAdds havelsof delayadd cs = returnWhen (null incomplete) $ do
where where
(incomplete, otherchanges) = partition (\c -> isPendingAddChange c || isInProcessAddChange c) cs (incomplete, otherchanges) = partition (\c -> isPendingAddChange c || isInProcessAddChange c) cs
-- Find files that are actually new, and not unlocked annexed
-- files. The ls-files is run on a batch of files.
findnew [] = return ([], noop) findnew [] = return ([], noop)
findnew pending@(exemplar:_) = do findnew pending@(exemplar:_) = do
(newfiles, cleanup) <- liftAnnex $ (newfiles, cleanup) <- liftAnnex $