diff options
author | 2013-03-01 15:23:59 -0400 | |
---|---|---|
committer | 2013-03-01 15:23:59 -0400 | |
commit | 0fa9ecb7ba54aa719dec810033b5f54ca197bf4e (patch) | |
tree | b1179d1852450e1c7d54a99c03de2c0f9fb629a2 /Assistant/Threads/Transferrer.hs | |
parent | ee19c8c802bec35fe0d3b92b7f065eed819ec38f (diff) |
add additional debug info about reasons for transfers
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
-rw-r--r-- | Assistant/Threads/Transferrer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index 0acadec4b..fe3cb212c 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -40,11 +40,11 @@ startTransfer :: FilePath -> Transfer -> TransferInfo -> Assistant (Maybe (Trans startTransfer program t info = case (transferRemote info, associatedFile info) of (Just remote, Just file) -> ifM (liftAnnex $ shouldTransfer t info) ( do - debug [ "Transferring:" , show t ] + debug [ "Transferring:" , describeTransfer t info ] notifyTransfer return $ Just (t, info, transferprocess remote file) , do - debug [ "Skipping unnecessary transfer:" , show t ] + debug [ "Skipping unnecessary transfer:" , describeTransfer t info ] void $ removeTransfer t return Nothing ) |