module Text.BlazeT
(
Markup
, Tag
, Attribute
, AttributeValue
, dataAttribute
, customAttribute
, ToMarkup (..)
, text
, preEscapedText
, lazyText
, preEscapedLazyText
, string
, preEscapedString
, unsafeByteString
, unsafeLazyByteString
, textComment
, lazyTextComment
, stringComment
, unsafeByteStringComment
, unsafeLazyByteStringComment
, textTag
, stringTag
, B.ToValue (..)
, textValue
, preEscapedTextValue
, lazyTextValue
, preEscapedLazyTextValue
, stringValue
, preEscapedStringValue
, unsafeByteStringValue
, unsafeLazyByteStringValue
, (!)
, (!?)
, contents
,MarkupM
,Markup2
,mapMarkupT
,MarkupT
,runMarkup
,runMarkupT
,execMarkup
,execMarkupT
) where
import qualified Text.Blaze as B
import Text.BlazeT.Internal
class ToMarkup a where
toMarkup :: a -> Markup
preEscapedToMarkup :: a -> Markup
instance B.ToMarkup a => ToMarkup a where
toMarkup = wrapMarkup . B.toMarkup
preEscapedToMarkup = wrapMarkup . B.preEscapedToMarkup