16 lines
329 B
Haskell
16 lines
329 B
Haskell
{-# LANGUAGE OverloadedStrings, QuasiQuotes, RecordWildCards #-}
|
|
-- | /sidebar
|
|
|
|
module Handler.SidebarR where
|
|
|
|
import Import
|
|
|
|
import Handler.Common
|
|
|
|
-- | Render just the accounts sidebar, useful when opening the sidebar.
|
|
getSidebarR :: Handler Html
|
|
getSidebarR = do
|
|
vd <- getViewData
|
|
withUrlRenderer [hamlet|^{sidebar vd}|]
|
|
|