src/Text/BlazeT/Renderer/Pretty.hs

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