fsck distribution key

This commit is contained in:
Joey Hess 2013-11-23 21:58:39 -04:00
parent b429ea0cea
commit e563c7e6f4
3 changed files with 34 additions and 7 deletions

View file

@ -38,7 +38,7 @@ getConfigStartUpgradeR d = do
let k = distributionKey d
let u = distributionUrl d
liftAnnex $ setUrlPresent k u
hook <- asIO1 $ downloadComplete d
hook <- asIO1 $ distributionDownloadComplete d
modifyDaemonStatus_ $ \status -> status
{ transferHook = M.insert k hook (transferHook status) }
let t = Transfer
@ -53,11 +53,6 @@ getConfigStartUpgradeR d = do
redirect DashboardR
#endif
downloadComplete :: GitAnnexDistribution -> Transfer -> Assistant ()
downloadComplete d t = do
error "TODO"
liftAnnex $ setUrlMissing (distributionKey d) (distributionUrl d)
{- Finish upgrade by starting the new assistant in the same repository this
- one is running in, and redirecting to it. -}
getConfigFinishUpgradeR :: Handler Html