redirect to /dashboard

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

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