diff options
Diffstat (limited to 'Assistant/Upgrade.hs')
-rw-r--r-- | Assistant/Upgrade.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Upgrade.hs b/Assistant/Upgrade.hs index a2f6f9e0a..67a4d9fc2 100644 --- a/Assistant/Upgrade.hs +++ b/Assistant/Upgrade.hs @@ -85,7 +85,7 @@ startDistributionDownload d = go =<< liftIO . newVersionLocation d =<< liftIO ol hook <- asIO1 $ distributionDownloadComplete d dest cleanup modifyDaemonStatus_ $ \s -> s { transferHook = M.insert k hook (transferHook s) } - maybe noop (queueTransfer "upgrade" Next (Just f) t) + maybe noop (queueTransfer "upgrade" Next (AssociatedFile (Just f)) t) =<< liftAnnex (remoteFromUUID webUUID) startTransfer t k = distributionKey d |