[github/fretlink/blazeT.git] / src / Text / BlazeT / Renderer / Pretty.hs

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

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

renderMarkup :: MarkupM a -> String
renderMarkup = BU.renderMarkup . execMarkup

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