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

gratuitous rename HomeR -> DashboardR

Browse source
This commit is contained in:
Joey Hess 2013-03-12 22:18:36 -04:00
parent aa19dd263a
commit 0ef8d806ac
9 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp.hs
View file

@ -93,12 +93,12 @@ renderUrl urlrenderer route params = do
r <- readMVar urlrenderer
return $ r route params
{- Redirects back to the referring page, or if there's none, HomeR -}
{- Redirects back to the referring page, or if there's none, DashboardR -}
redirectBack :: Handler ()
redirectBack = do
clearUltDest
setUltDestReferer
redirectUltDest HomeR
redirectUltDest DashboardR
controlMenu :: Widget
controlMenu = $(widgetFile "controlmenu")