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 , page "" (Just DashBoard) $ dashboard True
) )
getMainR :: Handler Html
getMainR = redirect DashboardR
{- Used to test if the webapp is running. -} {- Used to test if the webapp is running. -}
headDashboardR :: Handler () headMainR :: Handler ()
headDashboardR = noop headMainR = noop
{- Same as DashboardR, except no autorefresh at all (and no noscript warning). -} {- Same as DashboardR, except no autorefresh at all (and no noscript warning). -}
getNoScriptR :: Handler Html getNoScriptR :: Handler Html

4
Assistant/WebApp/routes
View file

@ -1,5 +1,5 @@
/ DashboardR GET HEAD / MainR GET HEAD
/dashboard DashboardR GET HEAD /dashboard DashboardR GET
/noscript NoScriptR GET /noscript NoScriptR GET
/noscript/auto NoScriptAutoR GET /noscript/auto NoScriptAutoR GET