src/Text/BlazeT/Renderer/Pretty.hs

   1 {-# LANGUAGE RankNTypes #-}
   2 module Text.BlazeT.Renderer.Pretty
   3     ( renderMarkup
   4     , renderHtml
   5   ) where
   6
   7 import qualified Text.Blaze.Renderer.Pretty as BU
   8 import           Text.BlazeT
   9
  10 renderMarkup :: MarkupM a -> String
  11 renderMarkup = BU.renderMarkup . execMarkup
  12
  13 renderHtml :: MarkupM a -> String
  14 renderHtml = renderMarkup
  15