-- | Utility functions for the blaze tests--
module Text.Blaze.Html.Tests.Util
( renderUsingString
, renderUsingText
, renderUsingUtf8
) where
import Blaze.ByteString.Builder as B (toLazyByteString)
import Blaze.ByteString.Builder.Char.Utf8 as B (fromString)
import Data.Text.Lazy.Encoding (encodeUtf8)
import Text.Blaze.Html (Html)
import qualified Data.ByteString.Lazy as LB
import qualified Text.Blaze.Html.Renderer.String as String (renderHtml)
import qualified Text.Blaze.Html.Renderer.Text as Text (renderHtml)
import qualified Text.Blaze.Html.Renderer.Utf8 as Utf8 (renderHtml)
-- | Render HTML to an UTF-8 encoded ByteString using the String renderer--renderUsingString :: Html -> LB.ByteStringrenderUsingString = toLazyByteString.fromString.String.renderHtml-- | Render HTML to an UTF-8 encoded ByteString using the Text renderer--renderUsingText :: Html -> LB.ByteStringrenderUsingText = encodeUtf8.Text.renderHtml-- | Render HTML to an UTF-8 encoded ByteString using the Utf8 renderer--renderUsingUtf8 :: Html -> LB.ByteStringrenderUsingUtf8 = Utf8.renderHtml