diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-29 18:25:28 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-29 18:25:28 -0400 |
| commit | ab6e1221ce77039b129d97f9454711bd500dac7c (patch) | |
| tree | 0a51012e616bbfbe9447dc6fd86d09fa38a5be9a | |
| parent | f9e0e10c9addbd71c77a95a149e79a39965e24ba (diff) | |
bug
| -rw-r--r-- | Assistant/TransferSlots.hs | 2 | ||||
| -rw-r--r-- | doc/design/assistant/syncing.mdwn | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/Assistant/TransferSlots.hs b/Assistant/TransferSlots.hs index 30163dbde..1573c2757 100644 --- a/Assistant/TransferSlots.hs +++ b/Assistant/TransferSlots.hs @@ -73,7 +73,7 @@ runTransferThread dstatus s (Just (t, info, a)) = do updateTransferInfo dstatus t $ info { transferTid = Just tid } where 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. - When E.catch is used, and has called go in its exception - handler, Control.Concurrent.throwTo will block sometimes diff --git a/doc/design/assistant/syncing.mdwn b/doc/design/assistant/syncing.mdwn index 9bd04e0ea..d75e00da7 100644 --- a/doc/design/assistant/syncing.mdwn +++ b/doc/design/assistant/syncing.mdwn @@ -3,6 +3,8 @@ all the other git clones, at both the git level and the key/value level. ## 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 |