16 lines
285 B
Haskell
16 lines
285 B
Haskell
-- | /sidebar
|
|
|
|
module Handler.SidebarR where
|
|
|
|
import Import
|
|
|
|
import Handler.Common
|
|
import Handler.Utils
|
|
|
|
-- | Render just the accounts sidebar, useful when opening the sidebar.
|
|
getSidebarR :: Handler Html
|
|
getSidebarR = do
|
|
vd <- getViewData
|
|
giveUrlRenderer [hamlet|^{sidebar vd}|]
|
|
|