From 44c5b03a6e7d8d00245cf0aba0fc68025201562c Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 19 May 2013 15:28:38 +0300
Subject: [PATCH] Deprecate hamletToRepHtml

---
 yesod-core/Yesod/Core/Handler.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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.