src/Text/BlazeT/Renderer/Utf8.hs

   1 {-# LANGUAGE RankNTypes #-}
   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
  17   ) where
  18
  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
  23 import           Text.BlazeT
  24
  25 renderMarkupBuilder :: MarkupI a -> B.Builder
  26 renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup
  27
  28 renderHtmlBuilder :: MarkupI a -> B.Builder
  29 renderHtmlBuilder = renderMarkupBuilder
  30
  31 renderMarkup :: MarkupI a -> BL.ByteString
  32 renderMarkup = BU.renderMarkup . execMarkup
  33
  34 renderHtml :: MarkupI a -> BL.ByteString
  35 renderHtml = renderMarkup
  36
  37 renderMarkupToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupI a -> IO ()
  38 renderMarkupToByteStringIO g = BU.renderMarkupToByteStringIO g . execMarkup
  39
  40 renderHtmlToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupI a -> IO ()
  41 renderHtmlToByteStringIO = renderMarkupToByteStringIO