diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-01 15:23:59 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-01 15:23:59 -0400 |
| commit | 0fa9ecb7ba54aa719dec810033b5f54ca197bf4e (patch) | |
| tree | b1179d1852450e1c7d54a99c03de2c0f9fb629a2 /Assistant/Threads/Glacier.hs | |
| parent | ee19c8c802bec35fe0d3b92b7f065eed819ec38f (diff) | |
add additional debug info about reasons for transfers
Diffstat (limited to 'Assistant/Threads/Glacier.hs')
| -rw-r--r-- | Assistant/Threads/Glacier.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/Glacier.hs b/Assistant/Threads/Glacier.hs index 2f3b03b16..46f64cd56 100644 --- a/Assistant/Threads/Glacier.hs +++ b/Assistant/Threads/Glacier.hs @@ -39,5 +39,5 @@ glacierThread = namedThread "Glacier" $ runEvery (Seconds 3600) <~> go let l' = filter (\p -> S.member (getkey p) s) l forM_ l' $ \(t, info) -> do liftAnnex $ removeFailedTransfer t - queueTransferWhenSmall (associatedFile info) t r + queueTransferWhenSmall "object available from glacier" (associatedFile info) t r getkey = transferKey . fst |