[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 :: MarkupI a -> String
renderMarkup = BU.renderMarkup . execMarkup

renderHtml :: MarkupI 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
cdfc5a07	10	renderMarkup :: MarkupI a -> String
95eb4d6a	11	renderMarkup = BU.renderMarkup . execMarkup
675085c2	12
cdfc5a07	13	renderHtml :: MarkupI a -> String
675085c2	14	renderHtml = renderMarkup
675085c2	15