gratuitous rename HomeR -> DashboardR
This commit is contained in:
parent
aa19dd263a
commit
0ef8d806ac
9 changed files with 18 additions and 17 deletions
|
@ -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")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue