aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Text/BlazeT/Renderer/Pretty.hs
diff options
context:
space:
mode:
authorJohannes Gerer <oss@johannesgerer.com>2016-10-27 02:18:13 +0200
committerJohannes Gerer <oss@johannesgerer.com>2016-10-27 02:18:13 +0200
commit95eb4d6a041305a27dc8fcd42ff1831d9961b7a3 (patch)
tree3433db574dc8d074354ae70232d29a9cb81ba136 /src/Text/BlazeT/Renderer/Pretty.hs
parent675085c2e0b0b851378da08b7d73024766107c87 (diff)
downloadblazeT-95eb4d6a041305a27dc8fcd42ff1831d9961b7a3.tar.gz
blazeT-95eb4d6a041305a27dc8fcd42ff1831d9961b7a3.tar.zst
blazeT-95eb4d6a041305a27dc8fcd42ff1831d9961b7a3.zip
Docsv0.0.1
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