12 lines
250 B
Haskell
12 lines
250 B
Haskell
-- | /sidebar
|
|
|
|
module Handler.SidebarR where
|
|
|
|
import Import
|
|
|
|
import Handler.Common (sidebar)
|
|
|
|
-- | Render just the accounts sidebar, useful when opening the sidebar.
|
|
getSidebarR :: Handler Html
|
|
getSidebarR = withUrlRenderer . sidebar =<< getViewData
|