1 {-# OPTIONS_GHC -fsimpl-tick-factor=230 #-}
3 -- the above option was not needed with
4 -- ,blaze-html >= 0.6.0.0 && < 0.7.0.0
5 -- ,blaze-builder >= 0.2
8 module Text.BlazeT.Renderer.Utf8
12 , renderMarkupToByteStringIO
15 , renderHtmlToByteStringIO
18 , renderMarkupBuilderT
20 , renderMarkupToByteStringIOT
21 , renderHtmlToByteStringIOT
26 import qualified Blaze.ByteString.Builder as B
28 import Control.Monad.Identity
29 import qualified Data.ByteString as BS
30 import qualified Data.ByteString.Lazy as BL
31 import qualified Text.Blaze.Renderer.Utf8 as BU
34 renderMarkupBuilder :: MarkupM a -> B.Builder
35 renderMarkupBuilder = runIdentity . renderMarkupBuilderT
37 renderMarkupBuilderT :: Monad m => MarkupT m a -> m B.Builder
38 renderMarkupBuilderT = liftM BU.renderMarkupBuilder . execMarkupT
40 renderHtmlBuilder :: MarkupM a -> B.Builder
41 renderHtmlBuilder = renderMarkupBuilder
43 renderHtmlBuilderT :: Monad m => MarkupT m a -> m B.Builder
44 renderHtmlBuilderT = renderMarkupBuilderT
46 renderMarkup :: MarkupM a -> BL.ByteString
47 renderMarkup = runIdentity . renderMarkupT
48 renderMarkupT :: Monad m => MarkupT m a -> m BL.ByteString
49 renderMarkupT = liftM BU.renderMarkup . execMarkupT
51 renderHtml :: MarkupM a -> BL.ByteString
52 renderHtml = renderMarkup
53 renderHtmlT :: Monad m => MarkupT m a -> m BL.ByteString
54 renderHtmlT = renderMarkupT
56 renderMarkupToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO ()
57 renderMarkupToByteStringIO g = runIdentity . renderMarkupToByteStringIOT g
58 renderMarkupToByteStringIOT :: Monad m => (BS.ByteString -> IO ()) ->
59 MarkupT m a -> m (IO ())
60 renderMarkupToByteStringIOT g = liftM (BU.renderMarkupToByteStringIO g) . execMarkupT
62 renderHtmlToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO ()
63 renderHtmlToByteStringIO g = runIdentity . renderMarkupToByteStringIOT g
64 renderHtmlToByteStringIOT :: Monad m => (BS.ByteString -> IO ()) ->
65 MarkupT m a -> m (IO ())
66 renderHtmlToByteStringIOT g = liftM (BU.renderMarkupToByteStringIO g) . execMarkupT