diff options
author | Joey Hess <joey@kitenet.net> | 2013-03-01 15:58:44 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-03-01 15:58:44 -0400 |
commit | 8909fa66ce0c04094d13fc21db76bbf7700f9d6e (patch) | |
tree | 55e9bf5078a77ea1e111e2284e10473998418968 /Assistant/Threads/Transferrer.hs | |
parent | bc1d282f5f7a87f61dd5beab7369d0739b7dbaed (diff) |
add additional debug info about reasons for drops
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
-rw-r--r-- | Assistant/Threads/Transferrer.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index fe3cb212c..575307d24 100644 --- 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 |