fsck distribution key
This commit is contained in:
parent
b429ea0cea
commit
e563c7e6f4
3 changed files with 34 additions and 7 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue