aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Text/BlazeT/Renderer/Pretty.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/BlazeT/Renderer/Pretty.hs')
-rw-r--r--src/Text/BlazeT/Renderer/Pretty.hs11
1 files changed, 2 insertions, 9 deletions
diff --git a/src/Text/BlazeT/Renderer/Pretty.hs b/src/Text/BlazeT/Renderer/Pretty.hs
index 8977c94..5e033ac 100644
--- a/src/Text/BlazeT/Renderer/Pretty.hs
+++ b/src/Text/BlazeT/Renderer/Pretty.hs
@@ -1,22 +1,15 @@
1{-# LANGUAGE RankNTypes #-}
1module Text.BlazeT.Renderer.Pretty 2module Text.BlazeT.Renderer.Pretty
2 ( renderMarkup 3 ( renderMarkup
3 , renderHtml 4 , renderHtml
4 , renderMarkupT
5 , renderHtmlT
6 ) where 5 ) where
7 6
8import Control.Monad
9import Control.Monad.Identity
10import qualified Text.Blaze.Renderer.Pretty as BU 7import qualified Text.Blaze.Renderer.Pretty as BU
11import Text.BlazeT 8import Text.BlazeT
12 9
13renderMarkup :: MarkupM a -> String 10renderMarkup :: MarkupM a -> String
14renderMarkup = runIdentity . renderMarkupT 11renderMarkup = BU.renderMarkup . execMarkup
15renderMarkupT :: Monad m => MarkupT m a -> m String
16renderMarkupT = liftM BU.renderMarkup . execMarkupT
17 12
18renderHtml :: MarkupM a -> String 13renderHtml :: MarkupM a -> String
19renderHtml = renderMarkup 14renderHtml = renderMarkup
20renderHtmlT :: Monad m => MarkupT m a -> m String
21renderHtmlT = renderMarkupT
22 15