add additional debug info about reasons for transfers

2013-03-01 15:23:59 -04:00 · 2013-03-01 15:23:59 -04:00 · 46c9cbeb1e
commit 46c9cbeb1e
parent e2f1f7afc6
9 changed files with 43 additions and 31 deletions
--- a/Assistant/Threads/Committer.hs
+++ b/Assistant/Threads/Committer.hs
@ -216,7 +216,7 @@ handleAdds delayadd cs = returnWhen (null incomplete) $ do
 			whenM (pure DirWatcher.eventsCoalesce <||> isDirect) $ do
 				stageSymlink file =<< hashSymlink link
 				showEndOk
-		queueTransfers Next key (Just file) Upload
+		queueTransfers "newly added file" Next key (Just file) Upload
 		return $ Just change

 	{- Check that the keysource's keyFilename still exists,