]>
Commit | Line | Data |
---|---|---|
95eb4d6a | 1 | {-# LANGUAGE RankNTypes #-} |
675085c2 JG |
2 | module Text.BlazeT.Renderer.Pretty |
3 | ( renderMarkup | |
4 | , renderHtml | |
675085c2 JG |
5 | ) where |
6 | ||
675085c2 JG |
7 | import qualified Text.Blaze.Renderer.Pretty as BU |
8 | import Text.BlazeT | |
9 | ||
cdfc5a07 | 10 | renderMarkup :: MarkupI a -> String |
95eb4d6a | 11 | renderMarkup = BU.renderMarkup . execMarkup |
675085c2 | 12 | |
cdfc5a07 | 13 | renderHtml :: MarkupI a -> String |
675085c2 | 14 | renderHtml = renderMarkup |
675085c2 | 15 |