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
23
24
25
26
27
28
29
30

{-# LANGUAGE MonoLocalBinds #-}
{-# LANGUAGE RankNTypes     #-}
module Text.BlazeT.Html
    (
    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
    ) where

import           Text.BlazeT

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

toHtml :: (ToMarkup a) => a -> Html
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.