From cdd6d3071e52be90c881a2bcab53d9a045beb554 Mon Sep 17 00:00:00 2001 From: Adrien Duclos Date: Fri, 30 Nov 2018 11:57:44 +0100 Subject: Fix warning on simplifiable typeclass Following the compiler advices --- src/Text/BlazeT/Html.hs | 9 +++++---- 1 file 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 @@ -{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE MonoLocalBinds #-} +{-# LANGUAGE RankNTypes #-} module Text.BlazeT.Html ( module Text.BlazeT @@ -12,16 +13,16 @@ module Text.BlazeT.Html , preEscapedToHtml ) where -import Text.BlazeT +import Text.BlazeT type HtmlT = MarkupT type HtmlM a = MarkupM a type Html = Markup -toHtml ::(ToMarkup a) => a -> Html +toHtml :: (ToMarkup a) => a -> Html toHtml = toMarkup -preEscapedToHtml ::(ToMarkup a) => a -> Html +preEscapedToHtml :: (ToMarkup a) => a -> Html preEscapedToHtml = preEscapedToMarkup -- $descr1 The following is an adaptation of all "Text.Blaze.Html" -- cgit v1.2.3