avoid Git.Command needing Utility.Batch which needs async

For github-backup etc
This commit is contained in:
Joey Hess 2014-07-04 12:18:49 -04:00
parent ad7325a828
commit fc67925fd7
Failed to extract signature
3 changed files with 21 additions and 8 deletions

View file

@ -24,6 +24,7 @@ import Assistant.Types.UrlRenderer
import qualified Annex.Branch
import qualified Git.LsFiles
import qualified Git.Command
import qualified Git.Command.Batch
import qualified Git.Config
import Utility.ThreadScheduler
import qualified Assistant.Threads.Watcher as Watcher
@ -167,7 +168,7 @@ dailyCheck urlrenderer = do
- to have a lot of small objects and they should not be a
- significant size. -}
when (Git.Config.getMaybe "gc.auto" g == Just "0") $
liftIO $ void $ Git.Command.runBatch batchmaker
liftIO $ void $ Git.Command.Batch.run batchmaker
[ Param "-c", Param "gc.auto=670000"
, Param "gc"
, Param "--auto"