added `textComment`

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

diff --git a/src/Text/BlazeT/Internal.hs b/src/Text/BlazeT/Internal.hs
index fcdf9447f8c7725445dc1c3cc51118c228323a26..f6f642a488e242592e451fd3c928333eb7b1ab50 100644 (file)
--- 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.