add additional debug info about reasons for drops

2013-03-01 15:58:44 -04:00 · 2013-03-01 15:58:44 -04:00 · a733271a9c
commit a733271a9c
parent 3c9cb4f05b
5 changed files with 40 additions and 24 deletions
--- a/Assistant/Threads/Transferrer.hs
+++ b/Assistant/Threads/Transferrer.hs
@ -76,7 +76,9 @@ startTransfer program t info = case (transferRemote info, associatedFile info) o
 			void $ addAlert $ makeAlertFiller True $
 				transferFileAlert direction True file
 			unless isdownload $
-				handleDrops True (transferKey t)
+				handleDrops
+					("object uploaded to " ++ show remote)
+					True (transferKey t)
 					(associatedFile info)
 					(Just remote)
 			recordCommit