bug

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

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