aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Text/BlazeT/Renderer/String.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/BlazeT/Renderer/String.hs')
-rw-r--r--src/Text/BlazeT/Renderer/String.hs11
1 files changed, 2 insertions, 9 deletions
diff --git a/src/Text/BlazeT/Renderer/String.hs b/src/Text/BlazeT/Renderer/String.hs
index 0a2de8a..45c4786 100644
--- a/src/Text/BlazeT/Renderer/String.hs
+++ b/src/Text/BlazeT/Renderer/String.hs
@@ -1,13 +1,10 @@
1{-# LANGUAGE RankNTypes #-}
1module Text.BlazeT.Renderer.String 2module Text.BlazeT.Renderer.String
2 ( fromChoiceString 3 ( fromChoiceString
3 , renderMarkup 4 , renderMarkup
4 , renderHtml 5 , renderHtml
5 , renderMarkupT
6 , renderHtmlT
7 ) where 6 ) where
8 7
9import Control.Monad
10import Control.Monad.Identity
11import Text.Blaze.Internal (ChoiceString) 8import Text.Blaze.Internal (ChoiceString)
12import qualified Text.Blaze.Renderer.String as BU 9import qualified Text.Blaze.Renderer.String as BU
13import Text.BlazeT 10import Text.BlazeT
@@ -16,12 +13,8 @@ fromChoiceString :: ChoiceString -> String -> String
16fromChoiceString = BU.fromChoiceString 13fromChoiceString = BU.fromChoiceString
17 14
18renderMarkup :: MarkupM a -> String 15renderMarkup :: MarkupM a -> String
19renderMarkup = runIdentity . renderMarkupT 16renderMarkup = BU.renderMarkup . execMarkup
20renderMarkupT :: Monad m => MarkupT m a -> m String
21renderMarkupT = liftM BU.renderMarkup . execMarkupT
22 17
23renderHtml :: MarkupM a -> String 18renderHtml :: MarkupM a -> String
24renderHtml = renderMarkup 19renderHtml = renderMarkup
25renderHtmlT :: Monad m => MarkupT m a -> m String
26renderHtmlT = renderMarkupT
27 20