From 98d458727dee6c93ee4d672366449fcadd8a376d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 12 Oct 2012 01:17:45 -0400
Subject: use gitRepo

---
 Assistant/Threads/Merger.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/Assistant/Threads/Merger.hs b/Assistant/Threads/Merger.hs
index 0349bb1f0..46f516262 100644
--- a/Assistant/Threads/Merger.hs
+++ b/Assistant/Threads/Merger.hs
@@ -25,7 +25,7 @@ thisThread = "Merger"
  - pushes. -}
 mergeThread :: ThreadState -> DaemonStatusHandle -> TransferQueue -> NamedThread
 mergeThread st dstatus transferqueue = thread $ do
-	g <- runThreadState st $ fromRepo id
+	g <- runThreadState st gitRepo
 	let dir = Git.localGitDir g </> "refs"
 	createDirectoryIfMissing True dir
 	let hook a = Just $ runHandler st dstatus transferqueue a
-- 
cgit v1.2.3