src/Text/BlazeT/Renderer/String.hs

   1 module Text.BlazeT.Renderer.String
   2     ( fromChoiceString
   3     , renderMarkup
   4     , renderHtml
   5     , renderMarkupT
   6     , renderHtmlT
   7   ) where
   8
   9 import           Control.Monad
  10 import           Control.Monad.Identity
  11 import           Text.Blaze.Internal (ChoiceString)
  12 import qualified Text.Blaze.Renderer.String as BU
  13 import           Text.BlazeT
  14
  15 fromChoiceString :: ChoiceString -> String -> String
  16 fromChoiceString = BU.fromChoiceString
  17
  18 renderMarkup :: MarkupM a -> String
  19 renderMarkup = runIdentity . renderMarkupT
  20 renderMarkupT :: Monad m => MarkupT m a -> m String
  21 renderMarkupT = liftM BU.renderMarkup . execMarkupT
  22
  23 renderHtml :: MarkupM a -> String
  24 renderHtml = renderMarkup
  25 renderHtmlT :: Monad m => MarkupT m a -> m String
  26 renderHtmlT = renderMarkupT
  27