reorg
avoid Git.Command needing Utility.Batch which needs async For github-backup etc
This commit is contained in:
parent
ad7325a828
commit
fc67925fd7
3 changed files with 21 additions and 8 deletions
|
@ -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"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue