]>
Commit | Line | Data |
---|---|---|
675085c2 JG |
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 |