]> git.immae.eu Git - github/fretlink/blazeT.git/commitdiff
Fix warning on simplifiable typeclass bump-for-lts-12-20
authorAdrien Duclos <adrien.duclos@fretlink.com>
Fri, 30 Nov 2018 10:57:44 +0000 (11:57 +0100)
committerAdrien Duclos <adrien.duclos@fretlink.com>
Fri, 30 Nov 2018 12:02:49 +0000 (13:02 +0100)
Following the compiler advices

src/Text/BlazeT/Html.hs

index d71e90a66d94ced7d01900298e2c296ca4aed9d1..de9e47166ea5bb79c906a52a13b345c4f7d41831 100644 (file)
@@ -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"