Initial

1 files changed, 27 insertions, 0 deletions

diff --git a/src/Text/BlazeT/Renderer/String.hs b/src/Text/BlazeT/Renderer/String.hs
new file mode 100644
index 0000000..0a2de8a
--- /dev/null
+++ b/src/Text/BlazeT/Renderer/String.hs
@@ -0,0 +1,27 @@
+module Text.BlazeT.Renderer.String
+    ( fromChoiceString
+    , renderMarkup
+    , renderHtml
+    , renderMarkupT
+    , renderHtmlT
+  ) where
+
+import           Control.Monad
+import           Control.Monad.Identity
+import           Text.Blaze.Internal (ChoiceString)
+import qualified Text.Blaze.Renderer.String as BU
+import           Text.BlazeT
+
+fromChoiceString :: ChoiceString -> String -> String       
+fromChoiceString = BU.fromChoiceString
+
+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
+