diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-24 16:30:15 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-24 16:30:15 -0400 |
| commit | a00262011dc7f4ccac8c5c40d845224c281c56b2 (patch) | |
| tree | e59997bf6b311fdfdd0ba80d864864c40e78484b /Assistant/Threads/Transferrer.hs | |
| parent | ac4be3de323345ab4a6cb4a624b975ac686cc2d5 (diff) | |
webapp and assistant glacier support
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
| -rw-r--r-- | Assistant/Threads/Transferrer.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index 1d23487fa..5c7056568 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -13,6 +13,7 @@ import Assistant.TransferQueue import Assistant.TransferSlots import Assistant.Alert import Assistant.Commits +import Assistant.Drop import Logs.Transfer import Logs.Location import Annex.Content @@ -65,6 +66,10 @@ startTransfer program t info = case (transferRemote info, associatedFile info) o - so there's no point in bothering the user about - those. The assistant should recover. - + - After a successful upload, handle dropping it from + - here, if desired. In this case, the remote it was + - uploaded to is known to have it. + - - Also, after a successful transfer, the location - log has changed. Indicate that a commit has been - made, in order to queue a push of the git-annex @@ -74,6 +79,10 @@ startTransfer program t info = case (transferRemote info, associatedFile info) o whenM (liftIO $ (==) ExitSuccess <$> waitForProcess pid) $ do void $ addAlert $ makeAlertFiller True $ transferFileAlert direction True file + unless isdownload $ + handleDrops True (transferKey t) + (associatedFile info) + (Just remote) recordCommit where params = |