diff options
author | Johannes Gerer <oss@johannesgerer.com> | 2016-10-27 02:46:07 +0200 |
---|---|---|
committer | Johannes Gerer <oss@johannesgerer.com> | 2016-10-27 02:47:19 +0200 |
commit | cdfc5a078a334f8467fb52f30c3ef544b63be4d0 (patch) | |
tree | e15bc0ccf9a78b9b066fc7d19de6124828e1a2f8 /src/Text/BlazeT/Renderer/Text.hs | |
parent | 95eb4d6a041305a27dc8fcd42ff1831d9961b7a3 (diff) | |
download | blazeT-cdfc5a078a334f8467fb52f30c3ef544b63be4d0.tar.gz blazeT-cdfc5a078a334f8467fb52f30c3ef544b63be4d0.tar.zst blazeT-cdfc5a078a334f8467fb52f30c3ef544b63be4d0.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.hs | 16 |
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 | |||
18 | import qualified Text.Blaze.Renderer.Text as BU | 18 | import qualified Text.Blaze.Renderer.Text as BU |
19 | import Text.BlazeT | 19 | import Text.BlazeT |
20 | 20 | ||
21 | renderMarkupBuilder :: MarkupM a -> B.Builder | 21 | renderMarkupBuilder :: MarkupI a -> B.Builder |
22 | renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup | 22 | renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup |
23 | 23 | ||
24 | renderHtmlBuilder :: MarkupM a -> B.Builder | 24 | renderHtmlBuilder :: MarkupI a -> B.Builder |
25 | renderHtmlBuilder = renderMarkupBuilder | 25 | renderHtmlBuilder = renderMarkupBuilder |
26 | 26 | ||
27 | renderMarkup :: MarkupM a -> L.Text | 27 | renderMarkup :: MarkupI a -> L.Text |
28 | renderMarkup = BU.renderMarkup . execMarkup | 28 | renderMarkup = BU.renderMarkup . execMarkup |
29 | 29 | ||
30 | renderHtml :: MarkupM a -> L.Text | 30 | renderHtml :: MarkupI a -> L.Text |
31 | renderHtml = renderMarkup | 31 | renderHtml = renderMarkup |
32 | 32 | ||
33 | renderMarkupWith :: (ByteString -> Text) -> MarkupM a -> L.Text | 33 | renderMarkupWith :: (ByteString -> Text) -> MarkupI a -> L.Text |
34 | renderMarkupWith g = (BH.renderHtmlWith g) . execMarkup | 34 | renderMarkupWith g = (BH.renderHtmlWith g) . execMarkup |
35 | 35 | ||
36 | renderHtmlWith :: (ByteString -> Text) -> MarkupM a -> L.Text | 36 | renderHtmlWith :: (ByteString -> Text) -> MarkupI a -> L.Text |
37 | renderHtmlWith = renderMarkupWith | 37 | renderHtmlWith = renderMarkupWith |
38 | 38 | ||
39 | renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder | 39 | renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupI a -> B.Builder |
40 | renderMarkupBuilderWith g = (BU.renderMarkupBuilderWith g) . execMarkup | 40 | renderMarkupBuilderWith g = (BU.renderMarkupBuilderWith g) . execMarkup |
41 | 41 | ||
42 | renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder | 42 | renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupI a -> B.Builder |
43 | renderHtmlBuilderWith = renderHtmlBuilderWith | 43 | renderHtmlBuilderWith = renderHtmlBuilderWith |
44 | 44 | ||