mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

bug

Browse source
This commit is contained in:
Joey Hess 2012-08-29 18:25:28 -04:00
parent f9e0e10c9a
commit ab6e1221ce
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/TransferSlots.hs
View file

@ -73,7 +73,7 @@ runTransferThread dstatus s (Just (t, info, a)) = do
updateTransferInfo dstatus t $ info { transferTid = Just tid } updateTransferInfo dstatus t $ info { transferTid = Just tid }
where where
go = catchPauseResume a go = catchPauseResume a
pause = catchPauseResume $ runEvery (Seconds 1) $ print "paused" pause = catchPauseResume $ runEvery (Seconds 86400) $ noop
{- Note: This must use E.try, rather than E.catch. {- Note: This must use E.try, rather than E.catch.
- When E.catch is used, and has called go in its exception - When E.catch is used, and has called go in its exception
- handler, Control.Concurrent.throwTo will block sometimes - handler, Control.Concurrent.throwTo will block sometimes

2
doc/design/assistant/syncing.mdwn
View file

@ -3,6 +3,8 @@ all the other git clones, at both the git level and the key/value level.
## immediate action items ## immediate action items
* There's apparently a race, as sometimes pausing a transfer causes it to start
one of the other queued transfers.
## longer-term TODO ## longer-term TODO