mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

redirect to /dashboard

Browse source
This commit is contained in:
Joey Hess 2013-12-09 17:24:53 -04:00
parent 0544818e59
commit 6f8693c59a
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Assistant/WebApp/DashBoard.hs
View file

@ -83,9 +83,12 @@ getDashboardR = ifM inFirstRun
, page "" (Just DashBoard) $ dashboard True
)
getMainR :: Handler Html
getMainR = redirect DashboardR
{- Used to test if the webapp is running. -}
headDashboardR :: Handler ()
headDashboardR = noop
headMainR :: Handler ()
headMainR = noop
{- Same as DashboardR, except no autorefresh at all (and no noscript warning). -}
getNoScriptR :: Handler Html