diff options
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 |