aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Text/BlazeT/Renderer/Pretty.hs
diff options
context:
space:
mode:
authorJohannes Gerer <oss@johannesgerer.com>2016-10-26 03:39:23 +0200
committerJohannes Gerer <oss@johannesgerer.com>2016-10-26 03:39:23 +0200
commit86d89e47d648770ae36dba01f7ae09d34f2ee171 (patch)
tree504457544a461b341bf5a8c9f56368b5e2cba554 /src/Text/BlazeT/Renderer/Pretty.hs
parent675085c2e0b0b851378da08b7d73024766107c87 (diff)
downloadblazeT-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.hs10
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 @@
1module Text.BlazeT.Renderer.Pretty 1module Text.BlazeT.Renderer.Pretty
2 ( renderMarkup 2 ( renderMarkup
3 , renderHtml 3 , renderHtml
4 , renderMarkupT
5 , renderHtmlT
6 ) where 4 ) where
7 5
8import Control.Monad
9import Control.Monad.Identity
10import qualified Text.Blaze.Renderer.Pretty as BU 6import qualified Text.Blaze.Renderer.Pretty as BU
11import Text.BlazeT 7import Text.BlazeT
12 8
13renderMarkup :: MarkupM a -> String 9renderMarkup :: MarkupM a -> String
14renderMarkup = runIdentity . renderMarkupT 10renderMarkup = BU.renderMarkup . execMarkup
15renderMarkupT :: Monad m => MarkupT m a -> m String
16renderMarkupT = liftM BU.renderMarkup . execMarkupT
17 11
18renderHtml :: MarkupM a -> String 12renderHtml :: MarkupM a -> String
19renderHtml = renderMarkup 13renderHtml = renderMarkup
20renderHtmlT :: Monad m => MarkupT m a -> m String
21renderHtmlT = renderMarkupT
22 14