diff options
author | Johannes Gerer <oss@johannesgerer.com> | 2017-01-15 13:58:31 +0100 |
---|---|---|
committer | Johannes Gerer <oss@johannesgerer.com> | 2017-01-15 13:58:31 +0100 |
commit | 4dc7c9b2b700d43e6b8550b218b6c67bdf20f565 (patch) | |
tree | 9bc846154146c6456ef6b5d93f3bdb9bea6c3db2 /src | |
parent | bd93b7c0b050dc23b652f918ed3a98ea6b386962 (diff) | |
download | blazeT-master.tar.gz blazeT-master.tar.zst blazeT-master.zip |
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/BlazeT/Internal.hs | 26 |
1 files changed, 21 insertions, 5 deletions
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 | |||
63 | , unsafeLazyByteString | 63 | , unsafeLazyByteString |
64 | 64 | ||
65 | -- ** Comments | 65 | -- ** Comments |
66 | , Text.Blaze.textComment | 66 | , textComment |
67 | , Text.Blaze.lazyTextComment | 67 | , lazyTextComment |
68 | , Text.Blaze.stringComment | 68 | , stringComment |
69 | , Text.Blaze.unsafeByteStringComment | 69 | , unsafeByteStringComment |
70 | , Text.Blaze.unsafeLazyByteStringComment | 70 | , unsafeLazyByteStringComment |
71 | 71 | ||
72 | -- ** Converting values to tags. | 72 | -- ** Converting values to tags. |
73 | , Text.Blaze.textTag | 73 | , Text.Blaze.textTag |
@@ -273,6 +273,22 @@ lazyText :: LT.Text -> Markup | |||
273 | lazyText = wrapMarkup . Text.Blaze.lazyText | 273 | lazyText = wrapMarkup . Text.Blaze.lazyText |
274 | {-# INLINE lazyText #-} | 274 | {-# INLINE lazyText #-} |
275 | 275 | ||
276 | |||
277 | textComment :: T.Text -> Markup | ||
278 | textComment = wrapMarkup . Text.Blaze.textComment | ||
279 | |||
280 | lazyTextComment :: LT.Text -> Markup | ||
281 | lazyTextComment = wrapMarkup . Text.Blaze.lazyTextComment | ||
282 | |||
283 | stringComment :: String -> Markup | ||
284 | stringComment = wrapMarkup . Text.Blaze.stringComment | ||
285 | |||
286 | unsafeByteStringComment :: BS.ByteString -> Markup | ||
287 | unsafeByteStringComment = wrapMarkup . Text.Blaze.unsafeByteStringComment | ||
288 | |||
289 | unsafeLazyByteStringComment :: BL.ByteString -> Markup | ||
290 | unsafeLazyByteStringComment = wrapMarkup . Text.Blaze.unsafeLazyByteStringComment | ||
291 | |||
276 | -- $descr1 | 292 | -- $descr1 |
277 | -- The following is an adaptation of all "Text.Blaze.Internal" exports to | 293 | -- The following is an adaptation of all "Text.Blaze.Internal" exports to |
278 | -- @blazeT@ types. | 294 | -- @blazeT@ types. |