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/Text.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/Text/BlazeT/Renderer/Text.hs') 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 -- cgit v1.2.3