1 {-# LANGUAGE UndecidableInstances #-}
2 {-# LANGUAGE FlexibleInstances #-}
3 {-# LANGUAGE RankNTypes #-}
12 -- * Creating attributes.
16 -- * Converting values to Markup.
25 , unsafeLazyByteString
31 , unsafeByteStringComment
32 , unsafeLazyByteStringComment
38 -- * Converting values to attribute values.
43 , preEscapedLazyTextValue
45 , preEscapedStringValue
46 , unsafeByteStringValue
47 , unsafeLazyByteStringValue
49 -- * Setting attributes
53 -- * Modifiying Markup trees
67 import qualified Text.Blaze as B
68 import Text.BlazeT.Internal
70 class ToMarkup a where
71 toMarkup :: a -> Markup
72 preEscapedToMarkup :: a -> Markup
74 -- test :: (ToMarkup a, Monad m) => a -> MarkupT m ()
77 instance B.ToMarkup a => ToMarkup a where
78 toMarkup = wrapMarkup . B.toMarkup
79 {-# INLINE toMarkup #-}
80 preEscapedToMarkup = wrapMarkup . B.preEscapedToMarkup
81 {-# INLINE preEscapedToMarkup #-}