{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE RankNTypes #-}
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
, Text.Blaze.ToValue (..)
, textValue
, preEscapedTextValue
, lazyTextValue
, preEscapedLazyTextValue
, stringValue
, preEscapedStringValue
, unsafeByteStringValue
, unsafeLazyByteStringValue
, (!)
, (!?)
, contents
,MarkupT(..)
,MarkupI
,mapMarkupT
,MarkupM
,Markup2
,runMarkupT
,runMarkup
,runWith
,execMarkupT
,execMarkup
,execWith
) where
import qualified Text.Blaze
import Text.BlazeT.Internal as Text.BlazeT.Internal
class ToMarkup a where
toMarkup :: a -> Markup
preEscapedToMarkup :: a -> Markup
instance Text.Blaze.ToMarkup a => ToMarkup a where
toMarkup :: a -> Markup
toMarkup = Markup -> Markup
wrapMarkup forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. ToMarkup a => a -> Markup
Text.Blaze.toMarkup
{-# INLINE toMarkup #-}
preEscapedToMarkup :: a -> Markup
preEscapedToMarkup = Markup -> Markup
wrapMarkup forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. ToMarkup a => a -> Markup
Text.Blaze.preEscapedToMarkup
{-# INLINE preEscapedToMarkup #-}