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

remove debug prints

Browse source
This commit is contained in:
Joey Hess 2012-08-29 14:06:45 -04:00
parent d2a4ffe669
commit c59ba80b5b
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Assistant/TransferSlots.hs
View file

@ -75,9 +75,5 @@ runTransferThread dstatus s (Just (t, info, a)) = do
go = catchPauseResume a go = catchPauseResume a
pause = catchPauseResume $ runEvery (Seconds 86400) noop pause = catchPauseResume $ runEvery (Seconds 86400) noop
catchPauseResume a' = E.catch a' handlePauseResume catchPauseResume a' = E.catch a' handlePauseResume
handlePauseResume PauseTransfer = do handlePauseResume PauseTransfer = pause
putStrLn "pause" handlePauseResume ResumeTransfer = go
pause
handlePauseResume ResumeTransfer = do
putStrLn "resume"
go