From 9eaba58dd9706fde7e0fb84364a16576db63a7e0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 5 Jul 2012 16:07:49 -0600
Subject: run transfer with copy of annex state

This should have made it run concurrently with other annex actions,
but I'm still seeing it serialize. Perhaps I need to forkProcess?
---
 Assistant/Threads/Transferrer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs
index 29cc393f2..0b47e9781 100644
--- a/Assistant/Threads/Transferrer.hs
+++ b/Assistant/Threads/Transferrer.hs
@@ -97,6 +97,6 @@ runTransfer st t info
 		inthread a = do
 			mvar <- newEmptyMVar
 			void $ forkIO $
-				runThreadState st a `E.finally` putMVar mvar ()
+				unsafeRunThreadState st a `E.finally` putMVar mvar ()
 			void $ takeMVar mvar -- wait for transfer thread
 			runThreadState st invalidateCache
-- 
cgit v1.2.3