diff options
author | Johannes Gerer <oss@johannesgerer.com> | 2016-10-26 03:39:23 +0200 |
---|---|---|
committer | Johannes Gerer <oss@johannesgerer.com> | 2016-10-26 03:39:23 +0200 |
commit | 86d89e47d648770ae36dba01f7ae09d34f2ee171 (patch) | |
tree | 504457544a461b341bf5a8c9f56368b5e2cba554 /src/Text/BlazeT/Renderer/Pretty.hs | |
parent | 675085c2e0b0b851378da08b7d73024766107c87 (diff) | |
download | blazeT-86d89e47d648770ae36dba01f7ae09d34f2ee171.tar.gz blazeT-86d89e47d648770ae36dba01f7ae09d34f2ee171.tar.zst blazeT-86d89e47d648770ae36dba01f7ae09d34f2ee171.zip |
a
Diffstat (limited to 'src/Text/BlazeT/Renderer/Pretty.hs')
-rw-r--r-- | src/Text/BlazeT/Renderer/Pretty.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/Text/BlazeT/Renderer/Pretty.hs b/src/Text/BlazeT/Renderer/Pretty.hs index 8977c94..fa8cdad 100644 --- a/src/Text/BlazeT/Renderer/Pretty.hs +++ b/src/Text/BlazeT/Renderer/Pretty.hs | |||
@@ -1,22 +1,14 @@ | |||
1 | module Text.BlazeT.Renderer.Pretty | 1 | module Text.BlazeT.Renderer.Pretty |
2 | ( renderMarkup | 2 | ( renderMarkup |
3 | , renderHtml | 3 | , renderHtml |
4 | , renderMarkupT | ||
5 | , renderHtmlT | ||
6 | ) where | 4 | ) where |
7 | 5 | ||
8 | import Control.Monad | ||
9 | import Control.Monad.Identity | ||
10 | import qualified Text.Blaze.Renderer.Pretty as BU | 6 | import qualified Text.Blaze.Renderer.Pretty as BU |
11 | import Text.BlazeT | 7 | import Text.BlazeT |
12 | 8 | ||
13 | renderMarkup :: MarkupM a -> String | 9 | renderMarkup :: MarkupM a -> String |
14 | renderMarkup = runIdentity . renderMarkupT | 10 | renderMarkup = BU.renderMarkup . execMarkup |
15 | renderMarkupT :: Monad m => MarkupT m a -> m String | ||
16 | renderMarkupT = liftM BU.renderMarkup . execMarkupT | ||
17 | 11 | ||
18 | renderHtml :: MarkupM a -> String | 12 | renderHtml :: MarkupM a -> String |
19 | renderHtml = renderMarkup | 13 | renderHtml = renderMarkup |
20 | renderHtmlT :: Monad m => MarkupT m a -> m String | ||
21 | renderHtmlT = renderMarkupT | ||
22 | 14 | ||