From cdfc5a078a334f8467fb52f30c3ef544b63be4d0 Mon Sep 17 00:00:00 2001 From: Johannes Gerer Date: Thu, 27 Oct 2016 02:46:07 +0200 Subject: fixed compilation error for GHC 7.6.3, 7.8.4, 7.10.3 --- src/Text/BlazeT/Renderer/Pretty.hs | 4 ++-- src/Text/BlazeT/Renderer/String.hs | 4 ++-- src/Text/BlazeT/Renderer/Text.hs | 16 ++++++++-------- src/Text/BlazeT/Renderer/Utf8.hs | 12 ++++++------ 4 files changed, 18 insertions(+), 18 deletions(-) (limited to 'src/Text/BlazeT/Renderer') diff --git a/src/Text/BlazeT/Renderer/Pretty.hs b/src/Text/BlazeT/Renderer/Pretty.hs index 5e033ac..4fc77b7 100644 --- a/src/Text/BlazeT/Renderer/Pretty.hs +++ b/src/Text/BlazeT/Renderer/Pretty.hs @@ -7,9 +7,9 @@ module Text.BlazeT.Renderer.Pretty import qualified Text.Blaze.Renderer.Pretty as BU import Text.BlazeT -renderMarkup :: MarkupM a -> String +renderMarkup :: MarkupI a -> String renderMarkup = BU.renderMarkup . execMarkup -renderHtml :: MarkupM a -> String +renderHtml :: MarkupI a -> String renderHtml = renderMarkup diff --git a/src/Text/BlazeT/Renderer/String.hs b/src/Text/BlazeT/Renderer/String.hs index 45c4786..615abbc 100644 --- a/src/Text/BlazeT/Renderer/String.hs +++ b/src/Text/BlazeT/Renderer/String.hs @@ -12,9 +12,9 @@ import Text.BlazeT fromChoiceString :: ChoiceString -> String -> String fromChoiceString = BU.fromChoiceString -renderMarkup :: MarkupM a -> String +renderMarkup :: MarkupI a -> String renderMarkup = BU.renderMarkup . execMarkup -renderHtml :: MarkupM a -> String +renderHtml :: MarkupI a -> String renderHtml = renderMarkup diff --git a/src/Text/BlazeT/Renderer/Text.hs b/src/Text/BlazeT/Renderer/Text.hs index a595bd1..5e5583c 100644 --- a/src/Text/BlazeT/Renderer/Text.hs +++ b/src/Text/BlazeT/Renderer/Text.hs @@ -18,27 +18,27 @@ import qualified Text.Blaze.Html.Renderer.Text as BH import qualified Text.Blaze.Renderer.Text as BU import Text.BlazeT -renderMarkupBuilder :: MarkupM a -> B.Builder +renderMarkupBuilder :: MarkupI a -> B.Builder renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup -renderHtmlBuilder :: MarkupM a -> B.Builder +renderHtmlBuilder :: MarkupI a -> B.Builder renderHtmlBuilder = renderMarkupBuilder -renderMarkup :: MarkupM a -> L.Text +renderMarkup :: MarkupI a -> L.Text renderMarkup = BU.renderMarkup . execMarkup -renderHtml :: MarkupM a -> L.Text +renderHtml :: MarkupI a -> L.Text renderHtml = renderMarkup -renderMarkupWith :: (ByteString -> Text) -> MarkupM a -> L.Text +renderMarkupWith :: (ByteString -> Text) -> MarkupI a -> L.Text renderMarkupWith g = (BH.renderHtmlWith g) . execMarkup -renderHtmlWith :: (ByteString -> Text) -> MarkupM a -> L.Text +renderHtmlWith :: (ByteString -> Text) -> MarkupI a -> L.Text renderHtmlWith = renderMarkupWith -renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder +renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupI a -> B.Builder renderMarkupBuilderWith g = (BU.renderMarkupBuilderWith g) . execMarkup -renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder +renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupI a -> B.Builder renderHtmlBuilderWith = renderHtmlBuilderWith diff --git a/src/Text/BlazeT/Renderer/Utf8.hs b/src/Text/BlazeT/Renderer/Utf8.hs index 2874b68..3862a2b 100644 --- a/src/Text/BlazeT/Renderer/Utf8.hs +++ b/src/Text/BlazeT/Renderer/Utf8.hs @@ -22,20 +22,20 @@ import qualified Data.ByteString.Lazy as BL import qualified Text.Blaze.Renderer.Utf8 as BU import Text.BlazeT -renderMarkupBuilder :: MarkupM a -> B.Builder +renderMarkupBuilder :: MarkupI a -> B.Builder renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup -renderHtmlBuilder :: MarkupM a -> B.Builder +renderHtmlBuilder :: MarkupI a -> B.Builder renderHtmlBuilder = renderMarkupBuilder -renderMarkup :: MarkupM a -> BL.ByteString +renderMarkup :: MarkupI a -> BL.ByteString renderMarkup = BU.renderMarkup . execMarkup -renderHtml :: MarkupM a -> BL.ByteString +renderHtml :: MarkupI a -> BL.ByteString renderHtml = renderMarkup -renderMarkupToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO () +renderMarkupToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupI a -> IO () renderMarkupToByteStringIO g = BU.renderMarkupToByteStringIO g . execMarkup -renderHtmlToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO () +renderHtmlToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupI a -> IO () renderHtmlToByteStringIO = renderMarkupToByteStringIO -- cgit v1.2.3