src/Text/BlazeT/Html.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

{-# LANGUAGE RankNTypes #-}
module Text.BlazeT.Html
    ( module Text.BlazeT
    , Html
    , toHtml
    , preEscapedToHtml
    -- * BlazeT new stuff
    ,HtmlM
    ,HtmlT
    ) where

import Text.BlazeT

type HtmlT = MarkupT
type HtmlM = MarkupM
type Html = Markup

toHtml ::(ToMarkup a) => a -> Html
toHtml = toMarkup

preEscapedToHtml ::(ToMarkup a) => a -> Html
preEscapedToHtml = preEscapedToMarkup