]>
Commit | Line | Data |
---|---|---|
95eb4d6a | 1 | {-# LANGUAGE RankNTypes #-} |
675085c2 | 2 | module Text.BlazeT.Renderer.Text |
95eb4d6a | 3 | ( renderMarkupBuilder |
675085c2 JG |
4 | , renderMarkupBuilderWith |
5 | , renderMarkup | |
6 | , renderMarkupWith | |
7 | , renderHtmlBuilder | |
8 | , renderHtmlBuilderWith | |
9 | , renderHtml | |
10 | , renderHtmlWith | |
11 | ) where | |
12 | ||
675085c2 | 13 | import Data.ByteString (ByteString) |
675085c2 JG |
14 | import Data.Text (Text) |
15 | import qualified Data.Text.Lazy as L | |
16 | import qualified Data.Text.Lazy.Builder as B | |
17 | import qualified Text.Blaze.Html.Renderer.Text as BH | |
18 | import qualified Text.Blaze.Renderer.Text as BU | |
19 | import Text.BlazeT | |
20 | ||
cdfc5a07 | 21 | renderMarkupBuilder :: MarkupI a -> B.Builder |
95eb4d6a | 22 | renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup |
675085c2 | 23 | |
cdfc5a07 | 24 | renderHtmlBuilder :: MarkupI a -> B.Builder |
675085c2 JG |
25 | renderHtmlBuilder = renderMarkupBuilder |
26 | ||
cdfc5a07 | 27 | renderMarkup :: MarkupI a -> L.Text |
95eb4d6a | 28 | renderMarkup = BU.renderMarkup . execMarkup |
675085c2 | 29 | |
cdfc5a07 | 30 | renderHtml :: MarkupI a -> L.Text |
675085c2 | 31 | renderHtml = renderMarkup |
675085c2 | 32 | |
cdfc5a07 | 33 | renderMarkupWith :: (ByteString -> Text) -> MarkupI a -> L.Text |
95eb4d6a | 34 | renderMarkupWith g = (BH.renderHtmlWith g) . execMarkup |
675085c2 | 35 | |
cdfc5a07 | 36 | renderHtmlWith :: (ByteString -> Text) -> MarkupI a -> L.Text |
95eb4d6a | 37 | renderHtmlWith = renderMarkupWith |
675085c2 | 38 | |
cdfc5a07 | 39 | renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupI a -> B.Builder |
95eb4d6a | 40 | renderMarkupBuilderWith g = (BU.renderMarkupBuilderWith g) . execMarkup |
675085c2 | 41 | |
cdfc5a07 | 42 | renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupI a -> B.Builder |
95eb4d6a | 43 | renderHtmlBuilderWith = renderHtmlBuilderWith |
675085c2 | 44 |