Benchmarking a git-annex branch with half a million files changed,
it takes about 1 minute to update the RepoSizes. So this will display
the message after a few seconds.
feedtid <- liftIO $ async $ do
forM_ l $ feedpairs feeder
closer
- newsizemap <- readpairs 500000 reader oldsizemap Nothing
+ newsizemap <- readpairs 100000 reader oldsizemap Nothing
liftIO $ wait feedtid
ifM (liftIO cleanup)
( return (newsizemap, newbranchsha)