webapp: When the user switches to display a different repository, that repository becomes the default repository to be displayed next time the webapp gets started.

This commit is contained in:
Joey Hess 2013-06-11 00:06:06 -04:00
parent 768f7c87f2
commit 680d3b5120
3 changed files with 7 additions and 1 deletions

View file

@ -43,6 +43,7 @@ listOtherRepos = do
getSwitchToRepositoryR :: FilePath -> Handler RepHtml
getSwitchToRepositoryR repo = do
liftIO $ startAssistant repo
liftIO $ addAutoStartFile repo -- make this the new default repo
redirect =<< liftIO geturl
where
geturl = do