1 {-# LANGUAGE RankNTypes #-}
2 {-# OPTIONS_GHC -fsimpl-tick-factor=230 #-}
4 -- the above option was not needed with
5 -- ,blaze-html >= 0.6.0.0 && < 0.7.0.0
6 -- ,blaze-builder >= 0.2
9 module Text.BlazeT.Renderer.Utf8
13 , renderMarkupToByteStringIO
16 , renderHtmlToByteStringIO
19 import qualified Blaze.ByteString.Builder as B
20 import qualified Data.ByteString as BS
21 import qualified Data.ByteString.Lazy as BL
22 import qualified Text.Blaze.Renderer.Utf8 as BU
25 renderMarkupBuilder :: MarkupM a -> B.Builder
26 renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup
28 renderHtmlBuilder :: MarkupM a -> B.Builder
29 renderHtmlBuilder = renderMarkupBuilder
31 renderMarkup :: MarkupM a -> BL.ByteString
32 renderMarkup = BU.renderMarkup . execMarkup
34 renderHtml :: MarkupM a -> BL.ByteString
35 renderHtml = renderMarkup
37 renderMarkupToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO ()
38 renderMarkupToByteStringIO g = BU.renderMarkupToByteStringIO g . execMarkup
40 renderHtmlToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO ()
41 renderHtmlToByteStringIO = renderMarkupToByteStringIO