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

improve first run screen

Browse source
This commit is contained in:
Joey Hess 2012-07-31 14:23:17 -04:00
parent 0d3686972d
commit c70496dc7f
5 changed files with 46 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Assistant/WebApp/DashBoard.hs
View file

@ -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