{-# LANGUAGE RankNTypes #-}
module Text.BlazeT.Renderer.Pretty
    ( renderMarkup
    , renderHtml
  ) where

import qualified Text.Blaze.Renderer.Pretty as BU
import           Text.BlazeT

renderMarkup :: MarkupI a -> String
renderMarkup :: forall a. MarkupI a -> String
renderMarkup = Markup -> String
BU.renderMarkup forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. MarkupI a -> Markup
execMarkup

renderHtml :: MarkupI a -> String
renderHtml :: forall a. MarkupI a -> String
renderHtml = forall a. MarkupI a -> String
renderMarkup