diff options
author | Adrien Duclos <adrien.duclos@fretlink.com> | 2018-11-30 11:57:44 +0100 |
---|---|---|
committer | Adrien Duclos <adrien.duclos@fretlink.com> | 2018-11-30 13:02:49 +0100 |
commit | cdd6d3071e52be90c881a2bcab53d9a045beb554 (patch) | |
tree | 37f1236d843f45116498e59817015afa6881ac97 | |
parent | 3db60b162a1e8482bb60f7638347de4cd7dc36f2 (diff) | |
download | blazeT-bump-for-lts-12-20.tar.gz blazeT-bump-for-lts-12-20.tar.zst blazeT-bump-for-lts-12-20.zip |
Fix warning on simplifiable typeclassbump-for-lts-12-20
Following the compiler advices
-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" |