slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: fix a warning

Browse Source
This commit is contained in:
Simon Michael 2014-10-23 10:27:07 -07:00
parent ba01ee447d
commit c1c9a989be
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-web/Foundation.hs
View File

@ -142,7 +142,7 @@ instance Yesod App where
staticRootUrl <- (staticRoot . settings) <$> getYesod staticRootUrl <- (staticRoot . settings) <$> getYesod
vd@VD{..} <- getViewData vd@VD{..} <- getViewData
giveUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet") withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")
-- This is done to provide an optimization for serving static files from -- This is done to provide an optimization for serving static files from
-- a separate domain. Please see the staticRoot setting in Settings.hs -- a separate domain. Please see the staticRoot setting in Settings.hs

2
hledger-web/Handler/SidebarR.hs
View File

@ -10,5 +10,5 @@ import Handler.Common
getSidebarR :: Handler Html getSidebarR :: Handler Html
getSidebarR = do getSidebarR = do
vd <- getViewData vd <- getViewData
giveUrlRenderer [hamlet|^{sidebar vd}|] withUrlRenderer [hamlet|^{sidebar vd}|]