diff options
author | Joey Hess <joey@kitenet.net> | 2012-07-05 16:07:49 -0600 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-07-05 16:07:49 -0600 |
commit | 9eaba58dd9706fde7e0fb84364a16576db63a7e0 (patch) | |
tree | 87abc8edd03d98d026e75fc411258f3169ebd0f9 /Assistant/Threads/Transferrer.hs | |
parent | 2136ee4adbeba262dcf184e653e1e07acb02a2bd (diff) |
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?
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
-rw-r--r-- | Assistant/Threads/Transferrer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |