Initial

1 files changed, 22 insertions, 0 deletions

diff --git a/src/Text/BlazeT/Renderer/Pretty.hs b/src/Text/BlazeT/Renderer/Pretty.hs
new file mode 100644
index 0000000..8977c94
--- /dev/null
+++ b/src/Text/BlazeT/Renderer/Pretty.hs
@@ -0,0 +1,22 @@
+module Text.BlazeT.Renderer.Pretty
+    ( renderMarkup
+    , renderHtml
+    , renderMarkupT
+    , renderHtmlT
+  ) where
+
+import           Control.Monad
+import           Control.Monad.Identity
+import qualified Text.Blaze.Renderer.Pretty as BU
+import           Text.BlazeT
+
+renderMarkup :: MarkupM a -> String
+renderMarkup = runIdentity . renderMarkupT
+renderMarkupT :: Monad m => MarkupT m a -> m String
+renderMarkupT = liftM BU.renderMarkup . execMarkupT
+
+renderHtml :: MarkupM a -> String
+renderHtml = renderMarkup
+renderHtmlT :: Monad m => MarkupT m a -> m String
+renderHtmlT = renderMarkupT
+