aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Text/BlazeT/Renderer/Text.hs
diff options
context:
space:
mode:
authorJohannes Gerer <oss@johannesgerer.com>2016-10-27 02:46:07 +0200
committerJohannes Gerer <oss@johannesgerer.com>2016-10-27 02:47:19 +0200
commitcdfc5a078a334f8467fb52f30c3ef544b63be4d0 (patch)
treee15bc0ccf9a78b9b066fc7d19de6124828e1a2f8 /src/Text/BlazeT/Renderer/Text.hs
parent95eb4d6a041305a27dc8fcd42ff1831d9961b7a3 (diff)
downloadblazeT-0.0.2.tar.gz
blazeT-0.0.2.tar.zst
blazeT-0.0.2.zip
fixed compilation error for GHC 7.6.3, 7.8.4, 7.10.3v0.0.2
Diffstat (limited to 'src/Text/BlazeT/Renderer/Text.hs')
-rw-r--r--src/Text/BlazeT/Renderer/Text.hs16
1 files changed, 8 insertions, 8 deletions
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
18import qualified Text.Blaze.Renderer.Text as BU 18import qualified Text.Blaze.Renderer.Text as BU
19import Text.BlazeT 19import Text.BlazeT
20 20
21renderMarkupBuilder :: MarkupM a -> B.Builder 21renderMarkupBuilder :: MarkupI a -> B.Builder
22renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup 22renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup
23 23
24renderHtmlBuilder :: MarkupM a -> B.Builder 24renderHtmlBuilder :: MarkupI a -> B.Builder
25renderHtmlBuilder = renderMarkupBuilder 25renderHtmlBuilder = renderMarkupBuilder
26 26
27renderMarkup :: MarkupM a -> L.Text 27renderMarkup :: MarkupI a -> L.Text
28renderMarkup = BU.renderMarkup . execMarkup 28renderMarkup = BU.renderMarkup . execMarkup
29 29
30renderHtml :: MarkupM a -> L.Text 30renderHtml :: MarkupI a -> L.Text
31renderHtml = renderMarkup 31renderHtml = renderMarkup
32 32
33renderMarkupWith :: (ByteString -> Text) -> MarkupM a -> L.Text 33renderMarkupWith :: (ByteString -> Text) -> MarkupI a -> L.Text
34renderMarkupWith g = (BH.renderHtmlWith g) . execMarkup 34renderMarkupWith g = (BH.renderHtmlWith g) . execMarkup
35 35
36renderHtmlWith :: (ByteString -> Text) -> MarkupM a -> L.Text 36renderHtmlWith :: (ByteString -> Text) -> MarkupI a -> L.Text
37renderHtmlWith = renderMarkupWith 37renderHtmlWith = renderMarkupWith
38 38
39renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder 39renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupI a -> B.Builder
40renderMarkupBuilderWith g = (BU.renderMarkupBuilderWith g) . execMarkup 40renderMarkupBuilderWith g = (BU.renderMarkupBuilderWith g) . execMarkup
41 41
42renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder 42renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupI a -> B.Builder
43renderHtmlBuilderWith = renderHtmlBuilderWith 43renderHtmlBuilderWith = renderHtmlBuilderWith
44 44