diff --git a/yesod-core/Yesod/Core/Handler.hs b/yesod-core/Yesod/Core/Handler.hs
index 370ac95b..3fd3cc91 100644
--- a/yesod-core/Yesod/Core/Handler.hs
+++ b/yesod-core/Yesod/Core/Handler.hs
@@ -707,7 +707,7 @@ redirectToPost :: (MonadHandler m, RedirectUrl (HandlerSite m) url)
                -> m a
 redirectToPost url = do
     urlText <- toTextUrl url
-    hamletToRepHtml [hamlet|
+    giveUrlRenderer [hamlet|
 $newline never
 $doctype 5
 
@@ -724,6 +724,7 @@ $doctype 5
 -- | Wraps the 'Content' generated by 'hamletToContent' in a 'RepHtml'.
 hamletToRepHtml :: MonadHandler m => HtmlUrl (Route (HandlerSite m)) -> m Html
 hamletToRepHtml = giveUrlRenderer
+{-# DEPRECATED hamletToRepHtml "Use giveUrlRenderer instead" #-}
 
 -- | Provide a URL rendering function to the given function and return the
 -- result. Useful for processing Shakespearean templates.