From 5a3f88cabe2fb61c22405ff98f55b0f17658f03d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 4 Jul 2014 12:18:49 -0400
Subject: reorg

avoid Git.Command needing Utility.Batch which needs async

For github-backup etc
---
 Assistant/Threads/SanityChecker.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Assistant/Threads/SanityChecker.hs')

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"
-- 
cgit v1.2.3