Docs

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

diff --git a/src/Text/BlazeT/Html.hs b/src/Text/BlazeT/Html.hs
index 4a21c03b95b6259fa33ab668de4bcadf174195af..d71e90a66d94ced7d01900298e2c296ca4aed9d1 100644 (file)
--- a/src/Text/BlazeT/Html.hs
+++ b/src/Text/BlazeT/Html.hs
@@ -1,18 +1,21 @@
 {-# LANGUAGE RankNTypes #-}
 module Text.BlazeT.Html
-    ( module Text.BlazeT
+    (
+    module Text.BlazeT
+    -- * Entities exported only by the @blazeT@ version of this module
+    ,HtmlM
+    ,HtmlT
+    -- * Entities exported also by "Text.Blaze.Html"
+    -- $descr1
     , Html
     , toHtml
     , preEscapedToHtml
-    -- * BlazeT new stuff
-    ,HtmlM
-    ,HtmlT
     ) where
 
 import Text.BlazeT
 
 type HtmlT = MarkupT
-type HtmlM = MarkupM
+type HtmlM a = MarkupM a
 type Html = Markup
 
 toHtml ::(ToMarkup a) => a -> Html
@@ -20,3 +23,7 @@ toHtml = toMarkup
 
 preEscapedToHtml ::(ToMarkup a) => a -> Html
 preEscapedToHtml = preEscapedToMarkup
+
+-- $descr1 The following is an adaptation of all "Text.Blaze.Html"
+-- exports to @blazeT@ types. For their documentation consult the
+-- "Text.Blaze.Html" documentation.