src/Text/BlazeT/Html.hs

   1 {-# LANGUAGE RankNTypes #-}
   2 module Text.BlazeT.Html
   3     ( module Text.BlazeT
   4     , Html
   5     , toHtml
   6     , preEscapedToHtml
   7     -- * BlazeT new stuff
   8     ,HtmlM
   9     ,HtmlT
  10     ) where
  11
  12 import Text.BlazeT
  13
  14 type HtmlT = MarkupT
  15 type HtmlM = MarkupM
  16 type Html = Markup
  17
  18 toHtml ::(ToMarkup a) => a -> Html
  19 toHtml = toMarkup
  20
  21 preEscapedToHtml ::(ToMarkup a) => a -> Html
  22 preEscapedToHtml = preEscapedToMarkup