1 module Text.BlazeT.Renderer.Text
4 , renderMarkupBuilderWithT
8 , renderHtmlBuilderWithT
11 , renderMarkupBuilderWith
15 , renderHtmlBuilderWith
21 import Data.ByteString (ByteString)
22 import Control.Monad.Identity
23 import Data.Text (Text)
24 import qualified Data.Text.Lazy as L
25 import qualified Data.Text.Lazy.Builder as B
26 import qualified Text.Blaze.Html.Renderer.Text as BH
27 import qualified Text.Blaze.Renderer.Text as BU
30 renderMarkupBuilder :: MarkupM a -> B.Builder
31 renderMarkupBuilder = runIdentity . renderMarkupBuilderT
33 renderMarkupBuilderT :: Monad m => MarkupT m a -> m B.Builder
34 renderMarkupBuilderT = liftM BU.renderMarkupBuilder . execMarkupT
36 renderHtmlBuilder :: MarkupM a -> B.Builder
37 renderHtmlBuilder = renderMarkupBuilder
39 renderHtmlBuilderT :: Monad m => MarkupT m a -> m B.Builder
40 renderHtmlBuilderT = renderMarkupBuilderT
42 renderMarkup :: MarkupM a -> L.Text
43 renderMarkup = runIdentity . renderMarkupT
44 renderMarkupT :: Monad m => MarkupT m a -> m L.Text
45 renderMarkupT = liftM BU.renderMarkup . execMarkupT
47 renderHtml :: MarkupM a -> L.Text
48 renderHtml = renderMarkup
49 renderHtmlT :: Monad m => MarkupT m a -> m L.Text
50 renderHtmlT = renderMarkupT
52 renderMarkupWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m L.Text
53 renderMarkupWithT g = liftM (BU.renderMarkupWith g) . execMarkupT
55 renderMarkupWith :: (ByteString -> Text) -> MarkupM a -> L.Text
56 renderMarkupWith g = runIdentity . renderMarkupWithT g
58 renderHtmlWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m L.Text
59 renderHtmlWithT g = liftM (BH.renderHtmlWith g) . execMarkupT
61 renderHtmlWith :: (ByteString -> Text) -> MarkupM a -> L.Text
62 renderHtmlWith g = runIdentity . renderHtmlWithT g
64 renderHtmlBuilderWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m B.Builder
65 renderHtmlBuilderWithT g = liftM (BH.renderHtmlBuilderWith g) . execMarkupT
67 renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder
68 renderHtmlBuilderWith g = runIdentity . renderHtmlBuilderWithT g
71 renderMarkupBuilderWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m B.Builder
72 renderMarkupBuilderWithT g = liftM (BU.renderMarkupBuilderWith g) . execMarkupT
74 renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder
75 renderMarkupBuilderWith g = runIdentity . renderMarkupBuilderWithT g