assistant restart on upgrade
This commit is contained in:
parent
ad653e49cf
commit
b9cdb55e0c
9 changed files with 127 additions and 25 deletions
|
@ -35,14 +35,17 @@ listOtherRepos = do
|
|||
names <- mapM relHome gooddirs
|
||||
return $ sort $ zip names gooddirs
|
||||
|
||||
{- Starts up the assistant in the repository, and waits for it to create
|
||||
- a gitAnnexUrlFile. Waits for the assistant to be up and listening for
|
||||
- connections by testing the url. Once it's running, redirect to it.
|
||||
-}
|
||||
getSwitchToRepositoryR :: FilePath -> Handler Html
|
||||
getSwitchToRepositoryR repo = do
|
||||
liftIO $ startAssistant repo
|
||||
liftIO $ addAutoStartFile repo -- make this the new default repo
|
||||
switchToAssistant repo
|
||||
|
||||
{- Starts up the assistant in the repository, and waits for it to create
|
||||
- a gitAnnexUrlFile. Waits for the assistant to be up and listening for
|
||||
- connections by testing the url. Once it's running, redirect to it. -}
|
||||
switchToAssistant :: FilePath -> Handler Html
|
||||
switchToAssistant repo = do
|
||||
liftIO $ startAssistant repo
|
||||
redirect =<< liftIO geturl
|
||||
where
|
||||
geturl = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue