haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Deprecate hamletToRepHtml

Browse Source
This commit is contained in:
Michael Snoyman 2013-05-19 15:28:38 +03:00
parent 0ace941117
commit 44c5b03a6e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-core/Yesod/Core/Handler.hs
View File

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