diff options
author | Joey Hess <joey@kitenet.net> | 2012-07-31 14:23:17 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-07-31 16:13:09 -0400 |
commit | c70496dc7f89f07e05bea0257b7d93986dd61d89 (patch) | |
tree | 767eb09e1e3531e8f1f44b5d02764b7fb1ca00a6 /Assistant/WebApp/DashBoard.hs | |
parent | 0d3686972d9b08b061f86b3e38fb681becf1c833 (diff) |
improve first run screen
Diffstat (limited to 'Assistant/WebApp/DashBoard.hs')
-rw-r--r-- | Assistant/WebApp/DashBoard.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Assistant/WebApp/DashBoard.hs b/Assistant/WebApp/DashBoard.hs index 9a9fccdaa..f4f56a476 100644 --- a/Assistant/WebApp/DashBoard.hs +++ b/Assistant/WebApp/DashBoard.hs @@ -71,11 +71,14 @@ dashboard warnNoScript = do $(widgetFile "dashboard/main") getHomeR :: Handler RepHtml -getHomeR = bootstrap (Just DashBoard) $ dashboard True +getHomeR = ifM (inFirstRun) + ( redirect ConfigR + , bootstrap (Just DashBoard) $ dashboard True + ) {- Same as HomeR, except no autorefresh at all (and no noscript warning). -} getNoScriptR :: Handler RepHtml -getNoScriptR = bootstrap (Just DashBoard) $ dashboard False +getNoScriptR = bootstrap (Just DashBoard) $ dashboard False {- Same as HomeR, except with autorefreshing via meta refresh. -} getNoScriptAutoR :: Handler RepHtml |