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/Utf8.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/Utf8.hs')
-rw-r--r-- | src/Text/BlazeT/Renderer/Utf8.hs | 12 |
1 files changed, 6 insertions, 6 deletions
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 | |||
22 | import qualified Text.Blaze.Renderer.Utf8 as BU | 22 | import qualified Text.Blaze.Renderer.Utf8 as BU |
23 | import Text.BlazeT | 23 | import Text.BlazeT |
24 | 24 | ||
25 | renderMarkupBuilder :: MarkupM a -> B.Builder | 25 | renderMarkupBuilder :: MarkupI a -> B.Builder |
26 | renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup | 26 | renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup |
27 | 27 | ||
28 | renderHtmlBuilder :: MarkupM a -> B.Builder | 28 | renderHtmlBuilder :: MarkupI a -> B.Builder |
29 | renderHtmlBuilder = renderMarkupBuilder | 29 | renderHtmlBuilder = renderMarkupBuilder |
30 | 30 | ||
31 | renderMarkup :: MarkupM a -> BL.ByteString | 31 | renderMarkup :: MarkupI a -> BL.ByteString |
32 | renderMarkup = BU.renderMarkup . execMarkup | 32 | renderMarkup = BU.renderMarkup . execMarkup |
33 | 33 | ||
34 | renderHtml :: MarkupM a -> BL.ByteString | 34 | renderHtml :: MarkupI a -> BL.ByteString |
35 | renderHtml = renderMarkup | 35 | renderHtml = renderMarkup |
36 | 36 | ||
37 | renderMarkupToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO () | 37 | renderMarkupToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupI a -> IO () |
38 | renderMarkupToByteStringIO g = BU.renderMarkupToByteStringIO g . execMarkup | 38 | renderMarkupToByteStringIO g = BU.renderMarkupToByteStringIO g . execMarkup |
39 | 39 | ||
40 | renderHtmlToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO () | 40 | renderHtmlToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupI a -> IO () |
41 | renderHtmlToByteStringIO = renderMarkupToByteStringIO | 41 | renderHtmlToByteStringIO = renderMarkupToByteStringIO |