]>
Commit | Line | Data |
---|---|---|
95eb4d6a | 1 | {-# LANGUAGE RankNTypes #-} |
675085c2 JG |
2 | {-# OPTIONS_GHC -fsimpl-tick-factor=230 #-} |
3 | ||
4 | -- the above option was not needed with | |
5 | -- ,blaze-html >= 0.6.0.0 && < 0.7.0.0 | |
6 | -- ,blaze-builder >= 0.2 | |
7 | -- ,text < 1.2 | |
8 | ||
9 | module Text.BlazeT.Renderer.Utf8 | |
10 | ( | |
11 | renderMarkupBuilder | |
12 | , renderMarkup | |
13 | , renderMarkupToByteStringIO | |
14 | , renderHtmlBuilder | |
15 | , renderHtml | |
16 | , renderHtmlToByteStringIO | |
675085c2 JG |
17 | ) where |
18 | ||
19 | import qualified Blaze.ByteString.Builder as B | |
675085c2 JG |
20 | import qualified Data.ByteString as BS |
21 | import qualified Data.ByteString.Lazy as BL | |
22 | import qualified Text.Blaze.Renderer.Utf8 as BU | |
23 | import Text.BlazeT | |
24 | ||
cdfc5a07 | 25 | renderMarkupBuilder :: MarkupI a -> B.Builder |
95eb4d6a | 26 | renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup |
675085c2 | 27 | |
cdfc5a07 | 28 | renderHtmlBuilder :: MarkupI a -> B.Builder |
675085c2 JG |
29 | renderHtmlBuilder = renderMarkupBuilder |
30 | ||
cdfc5a07 | 31 | renderMarkup :: MarkupI a -> BL.ByteString |
95eb4d6a | 32 | renderMarkup = BU.renderMarkup . execMarkup |
675085c2 | 33 | |
cdfc5a07 | 34 | renderHtml :: MarkupI a -> BL.ByteString |
675085c2 | 35 | renderHtml = renderMarkup |
675085c2 | 36 | |
cdfc5a07 | 37 | renderMarkupToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupI a -> IO () |
95eb4d6a | 38 | renderMarkupToByteStringIO g = BU.renderMarkupToByteStringIO g . execMarkup |
675085c2 | 39 | |
cdfc5a07 | 40 | renderHtmlToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupI a -> IO () |
95eb4d6a | 41 | renderHtmlToByteStringIO = renderMarkupToByteStringIO |