aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Threads/TransferWatcher.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-12 01:17:45 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-12 01:17:45 -0400
commit98d458727dee6c93ee4d672366449fcadd8a376d (patch)
tree7d4620c43a2797ffdfc8c668a185f9a08640d7a0 /Assistant/Threads/TransferWatcher.hs
parentb40a3410ac24693999b894d6154de3ea2a7ae804 (diff)
use gitRepo
Diffstat (limited to 'Assistant/Threads/TransferWatcher.hs')
-rw-r--r--Assistant/Threads/TransferWatcher.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/TransferWatcher.hs b/Assistant/Threads/TransferWatcher.hs
index 33f0dacbe..16d247860 100644
--- a/Assistant/Threads/TransferWatcher.hs
+++ b/Assistant/Threads/TransferWatcher.hs
@@ -24,7 +24,7 @@ thisThread = "TransferWatcher"
- and updates the DaemonStatus's map of ongoing transfers. -}
transferWatcherThread :: ThreadState -> DaemonStatusHandle -> TransferQueue -> NamedThread
transferWatcherThread st dstatus transferqueue = thread $ do
- g <- runThreadState st $ fromRepo id
+ g <- runThreadState st gitRepo
let dir = gitAnnexTransferDir g
createDirectoryIfMissing True dir
let hook a = Just $ runHandler st dstatus transferqueue a