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

{-# LANGUAGE RankNTypes #-}
module Text.BlazeT.Html
    ( module Text.BlazeT
    , Html
    , toHtml
    , preEscapedToHtml
    -- * BlazeT new stuff
    ,HtmlM
    ,HtmlT
    ) where

import Text.BlazeT

type HtmlT = MarkupT
type HtmlM = MarkupM
type Html = Markup

toHtml ::(ToMarkup a) => a -> Html
toHtml = toMarkup

preEscapedToHtml ::(ToMarkup a) => a -> Html
preEscapedToHtml = preEscapedToMarkup
Commit	Line	Data
675085c2 JG	1	{-# LANGUAGE RankNTypes #-}
	2	module Text.BlazeT.Html
	3	( module Text.BlazeT
	4	, Html
	5	, toHtml
	6	, preEscapedToHtml
	7	-- * BlazeT new stuff
	8	,HtmlM
	9	,HtmlT
	10	) where
	11
	12	import Text.BlazeT
	13
	14	type HtmlT = MarkupT
	15	type HtmlM = MarkupM
	16	type Html = Markup
	17
	18	toHtml ::(ToMarkup a) => a -> Html
	19	toHtml = toMarkup
	20
	21	preEscapedToHtml ::(ToMarkup a) => a -> Html
	22	preEscapedToHtml = preEscapedToMarkup