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

View file

@ -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