diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-04 12:18:49 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-04 12:18:49 -0400 |
| commit | 5a3f88cabe2fb61c22405ff98f55b0f17658f03d (patch) | |
| tree | d6cebb2f6d53607786bdbb4d15eb4804dfd74d6c /Assistant | |
| parent | 3a88047aa22e10507c33081c35673d0bac6b6e18 (diff) | |
reorg
avoid Git.Command needing Utility.Batch which needs async
For github-backup etc
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Threads/SanityChecker.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs index bc5be9c75..7e072afd5 100644 --- a/Assistant/Threads/SanityChecker.hs +++ b/Assistant/Threads/SanityChecker.hs @@ -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" |