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

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

import           Text.Blaze.Internal (ChoiceString)
import qualified Text.Blaze.Renderer.String as BU
import           Text.BlazeT

fromChoiceString :: ChoiceString -> String -> String       
fromChoiceString = BU.fromChoiceString

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.String
	3	( fromChoiceString
	4	, renderMarkup
	5	, renderHtml
675085c2 JG	6	) where
675085c2 JG	7
675085c2 JG	8	import Text.Blaze.Internal (ChoiceString)
	9	import qualified Text.Blaze.Renderer.String as BU
	10	import Text.BlazeT
	11
	12	fromChoiceString :: ChoiceString -> String -> String
	13	fromChoiceString = BU.fromChoiceString
	14
cdfc5a07	15	renderMarkup :: MarkupI a -> String
95eb4d6a	16	renderMarkup = BU.renderMarkup . execMarkup
675085c2	17
cdfc5a07	18	renderHtml :: MarkupI a -> String
675085c2	19	renderHtml = renderMarkup
675085c2	20