diff options
Diffstat (limited to 'src/Text/BlazeT/Renderer/String.hs')
-rw-r--r-- | src/Text/BlazeT/Renderer/String.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Text/BlazeT/Renderer/String.hs b/src/Text/BlazeT/Renderer/String.hs index 0a2de8a..9f0e0a0 100644 --- a/src/Text/BlazeT/Renderer/String.hs +++ b/src/Text/BlazeT/Renderer/String.hs | |||
@@ -2,8 +2,6 @@ module Text.BlazeT.Renderer.String | |||
2 | ( fromChoiceString | 2 | ( fromChoiceString |
3 | , renderMarkup | 3 | , renderMarkup |
4 | , renderHtml | 4 | , renderHtml |
5 | , renderMarkupT | ||
6 | , renderHtmlT | ||
7 | ) where | 5 | ) where |
8 | 6 | ||
9 | import Control.Monad | 7 | import Control.Monad |
@@ -16,12 +14,8 @@ fromChoiceString :: ChoiceString -> String -> String | |||
16 | fromChoiceString = BU.fromChoiceString | 14 | fromChoiceString = BU.fromChoiceString |
17 | 15 | ||
18 | renderMarkup :: MarkupM a -> String | 16 | renderMarkup :: MarkupM a -> String |
19 | renderMarkup = runIdentity . renderMarkupT | 17 | renderMarkup = BU.renderMarkup . execMarkup |
20 | renderMarkupT :: Monad m => MarkupT m a -> m String | ||
21 | renderMarkupT = liftM BU.renderMarkup . execMarkupT | ||
22 | 18 | ||
23 | renderHtml :: MarkupM a -> String | 19 | renderHtml :: MarkupM a -> String |
24 | renderHtml = renderMarkup | 20 | renderHtml = renderMarkup |
25 | renderHtmlT :: Monad m => MarkupT m a -> m String | ||
26 | renderHtmlT = renderMarkupT | ||
27 | 21 | ||