src/Text/BlazeT/Renderer/Pretty.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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