aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorAdrien Duclos <adrien.duclos@fretlink.com>2018-11-30 11:57:44 +0100
committerAdrien Duclos <adrien.duclos@fretlink.com>2018-11-30 13:02:49 +0100
commitcdd6d3071e52be90c881a2bcab53d9a045beb554 (patch)
tree37f1236d843f45116498e59817015afa6881ac97
parent3db60b162a1e8482bb60f7638347de4cd7dc36f2 (diff)
downloadblazeT-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.hs9
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 #-}
2module Text.BlazeT.Html 3module 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
15import Text.BlazeT 16import Text.BlazeT
16 17
17type HtmlT = MarkupT 18type HtmlT = MarkupT
18type HtmlM a = MarkupM a 19type HtmlM a = MarkupM a
19type Html = Markup 20type Html = Markup
20 21
21toHtml ::(ToMarkup a) => a -> Html 22toHtml :: (ToMarkup a) => a -> Html
22toHtml = toMarkup 23toHtml = toMarkup
23 24
24preEscapedToHtml ::(ToMarkup a) => a -> Html 25preEscapedToHtml :: (ToMarkup a) => a -> Html
25preEscapedToHtml = preEscapedToMarkup 26preEscapedToHtml = 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"