From 4dc7c9b2b700d43e6b8550b218b6c67bdf20f565 Mon Sep 17 00:00:00 2001 From: Johannes Gerer Date: Sun, 15 Jan 2017 13:58:31 +0100 Subject: added `textComment` --- src/Text/BlazeT/Internal.hs | 26 +++++++++++++++++++++----- 1 file changed, 21 insertions(+), 5 deletions(-) (limited to 'src/Text/BlazeT') diff --git a/src/Text/BlazeT/Internal.hs b/src/Text/BlazeT/Internal.hs index fcdf944..f6f642a 100644 --- a/src/Text/BlazeT/Internal.hs +++ b/src/Text/BlazeT/Internal.hs @@ -63,11 +63,11 @@ module Text.BlazeT.Internal , unsafeLazyByteString -- ** Comments - , Text.Blaze.textComment - , Text.Blaze.lazyTextComment - , Text.Blaze.stringComment - , Text.Blaze.unsafeByteStringComment - , Text.Blaze.unsafeLazyByteStringComment + , textComment + , lazyTextComment + , stringComment + , unsafeByteStringComment + , unsafeLazyByteStringComment -- ** Converting values to tags. , Text.Blaze.textTag @@ -273,6 +273,22 @@ lazyText :: LT.Text -> Markup lazyText = wrapMarkup . Text.Blaze.lazyText {-# INLINE lazyText #-} + +textComment :: T.Text -> Markup +textComment = wrapMarkup . Text.Blaze.textComment + +lazyTextComment :: LT.Text -> Markup +lazyTextComment = wrapMarkup . Text.Blaze.lazyTextComment + +stringComment :: String -> Markup +stringComment = wrapMarkup . Text.Blaze.stringComment + +unsafeByteStringComment :: BS.ByteString -> Markup +unsafeByteStringComment = wrapMarkup . Text.Blaze.unsafeByteStringComment + +unsafeLazyByteStringComment :: BL.ByteString -> Markup +unsafeLazyByteStringComment = wrapMarkup . Text.Blaze.unsafeLazyByteStringComment + -- $descr1 -- The following is an adaptation of all "Text.Blaze.Internal" exports to -- @blazeT@ types. -- cgit v1.2.3