1 module Text.BlazeT.Renderer.String
10 import Control.Monad.Identity
11 import Text.Blaze.Internal (ChoiceString)
12 import qualified Text.Blaze.Renderer.String as BU
15 fromChoiceString :: ChoiceString -> String -> String
16 fromChoiceString = BU.fromChoiceString
18 renderMarkup :: MarkupM a -> String
19 renderMarkup = runIdentity . renderMarkupT
20 renderMarkupT :: Monad m => MarkupT m a -> m String
21 renderMarkupT = liftM BU.renderMarkup . execMarkupT
23 renderHtml :: MarkupM a -> String
24 renderHtml = renderMarkup
25 renderHtmlT :: Monad m => MarkupT m a -> m String
26 renderHtmlT = renderMarkupT