blob: 9f0e0a084f6ba57e656c784515b1a5b8a2555657 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module Text.BlazeT.Renderer.String
( fromChoiceString
, renderMarkup
, renderHtml
) where
import Control.Monad
import Control.Monad.Identity
import Text.Blaze.Internal (ChoiceString)
import qualified Text.Blaze.Renderer.String as BU
import Text.BlazeT
fromChoiceString :: ChoiceString -> String -> String
fromChoiceString = BU.fromChoiceString
renderMarkup :: MarkupM a -> String
renderMarkup = BU.renderMarkup . execMarkup
renderHtml :: MarkupM a -> String
renderHtml = renderMarkup
|