diff options
-rw-r--r-- | src/Text/BlazeT/Html.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Text/BlazeT/Html.hs b/src/Text/BlazeT/Html.hs index d71e90a..de9e471 100644 --- a/src/Text/BlazeT/Html.hs +++ b/src/Text/BlazeT/Html.hs | |||
@@ -1,4 +1,5 @@ | |||
1 | {-# LANGUAGE RankNTypes #-} | 1 | {-# LANGUAGE MonoLocalBinds #-} |
2 | {-# LANGUAGE RankNTypes #-} | ||
2 | module Text.BlazeT.Html | 3 | module Text.BlazeT.Html |
3 | ( | 4 | ( |
4 | module Text.BlazeT | 5 | module Text.BlazeT |
@@ -12,16 +13,16 @@ module Text.BlazeT.Html | |||
12 | , preEscapedToHtml | 13 | , preEscapedToHtml |
13 | ) where | 14 | ) where |
14 | 15 | ||
15 | import Text.BlazeT | 16 | import Text.BlazeT |
16 | 17 | ||
17 | type HtmlT = MarkupT | 18 | type HtmlT = MarkupT |
18 | type HtmlM a = MarkupM a | 19 | type HtmlM a = MarkupM a |
19 | type Html = Markup | 20 | type Html = Markup |
20 | 21 | ||
21 | toHtml ::(ToMarkup a) => a -> Html | 22 | toHtml :: (ToMarkup a) => a -> Html |
22 | toHtml = toMarkup | 23 | toHtml = toMarkup |
23 | 24 | ||
24 | preEscapedToHtml ::(ToMarkup a) => a -> Html | 25 | preEscapedToHtml :: (ToMarkup a) => a -> Html |
25 | preEscapedToHtml = preEscapedToMarkup | 26 | preEscapedToHtml = preEscapedToMarkup |
26 | 27 | ||
27 | -- $descr1 The following is an adaptation of all "Text.Blaze.Html" | 28 | -- $descr1 The following is an adaptation of all "Text.Blaze.Html" |