From c1c9a989be5918e86c4a711108f947d60a46dfb7 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 23 Oct 2014 10:27:07 -0700
Subject: [PATCH] web: fix a warning

---
 hledger-web/Foundation.hs       | 2 +-
 hledger-web/Handler/SidebarR.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs
index ca2a66505..b6e4f81d6 100644
--- a/hledger-web/Foundation.hs
+++ b/hledger-web/Foundation.hs
@@ -142,7 +142,7 @@ instance Yesod App where
 
         staticRootUrl <- (staticRoot . settings) <$> getYesod
         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
     -- a separate domain. Please see the staticRoot setting in Settings.hs
diff --git a/hledger-web/Handler/SidebarR.hs b/hledger-web/Handler/SidebarR.hs
index 179646e32..4bf97cebe 100644
--- a/hledger-web/Handler/SidebarR.hs
+++ b/hledger-web/Handler/SidebarR.hs
@@ -10,5 +10,5 @@ import Handler.Common
 getSidebarR :: Handler Html
 getSidebarR = do
   vd <- getViewData
-  giveUrlRenderer [hamlet|^{sidebar vd}|]
+  withUrlRenderer [hamlet|^{sidebar vd}|]