mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-14 13:03:56 +03:00
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}|]
|
|
|