aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Text/BlazeT/Renderer/Text.hs
diff options
context:
space:
mode:
authorJohannes Gerer <oss@johannesgerer.com>2016-10-27 02:18:13 +0200
committerJohannes Gerer <oss@johannesgerer.com>2016-10-27 02:18:13 +0200
commit95eb4d6a041305a27dc8fcd42ff1831d9961b7a3 (patch)
tree3433db574dc8d074354ae70232d29a9cb81ba136 /src/Text/BlazeT/Renderer/Text.hs
parent675085c2e0b0b851378da08b7d73024766107c87 (diff)
downloadblazeT-95eb4d6a041305a27dc8fcd42ff1831d9961b7a3.tar.gz
blazeT-95eb4d6a041305a27dc8fcd42ff1831d9961b7a3.tar.zst
blazeT-95eb4d6a041305a27dc8fcd42ff1831d9961b7a3.zip
Docsv0.0.1
Diffstat (limited to 'src/Text/BlazeT/Renderer/Text.hs')
-rw-r--r--src/Text/BlazeT/Renderer/Text.hs51
1 files changed, 10 insertions, 41 deletions
diff --git a/src/Text/BlazeT/Renderer/Text.hs b/src/Text/BlazeT/Renderer/Text.hs
index 31181eb..a595bd1 100644
--- a/src/Text/BlazeT/Renderer/Text.hs
+++ b/src/Text/BlazeT/Renderer/Text.hs
@@ -1,13 +1,6 @@
1{-# LANGUAGE RankNTypes #-}
1module Text.BlazeT.Renderer.Text 2module Text.BlazeT.Renderer.Text
2 ( renderMarkupBuilderT 3 ( renderMarkupBuilder
3 , renderMarkupBuilder
4 , renderMarkupBuilderWithT
5 , renderMarkupT
6 , renderMarkupWithT
7 , renderHtmlBuilderT
8 , renderHtmlBuilderWithT
9 , renderHtmlT
10 , renderHtmlWithT
11 , renderMarkupBuilderWith 4 , renderMarkupBuilderWith
12 , renderMarkup 5 , renderMarkup
13 , renderMarkupWith 6 , renderMarkupWith
@@ -17,9 +10,7 @@ module Text.BlazeT.Renderer.Text
17 , renderHtmlWith 10 , renderHtmlWith
18 ) where 11 ) where
19 12
20import Control.Monad
21import Data.ByteString (ByteString) 13import Data.ByteString (ByteString)
22import Control.Monad.Identity
23import Data.Text (Text) 14import Data.Text (Text)
24import qualified Data.Text.Lazy as L 15import qualified Data.Text.Lazy as L
25import qualified Data.Text.Lazy.Builder as B 16import qualified Data.Text.Lazy.Builder as B
@@ -28,48 +19,26 @@ import qualified Text.Blaze.Renderer.Text as BU
28import Text.BlazeT 19import Text.BlazeT
29 20
30renderMarkupBuilder :: MarkupM a -> B.Builder 21renderMarkupBuilder :: MarkupM a -> B.Builder
31renderMarkupBuilder = runIdentity . renderMarkupBuilderT 22renderMarkupBuilder = BU.renderMarkupBuilder . execMarkup
32
33renderMarkupBuilderT :: Monad m => MarkupT m a -> m B.Builder
34renderMarkupBuilderT = liftM BU.renderMarkupBuilder . execMarkupT
35 23
36renderHtmlBuilder :: MarkupM a -> B.Builder 24renderHtmlBuilder :: MarkupM a -> B.Builder
37renderHtmlBuilder = renderMarkupBuilder 25renderHtmlBuilder = renderMarkupBuilder
38 26
39renderHtmlBuilderT :: Monad m => MarkupT m a -> m B.Builder
40renderHtmlBuilderT = renderMarkupBuilderT
41
42renderMarkup :: MarkupM a -> L.Text 27renderMarkup :: MarkupM a -> L.Text
43renderMarkup = runIdentity . renderMarkupT 28renderMarkup = BU.renderMarkup . execMarkup
44renderMarkupT :: Monad m => MarkupT m a -> m L.Text
45renderMarkupT = liftM BU.renderMarkup . execMarkupT
46 29
47renderHtml :: MarkupM a -> L.Text 30renderHtml :: MarkupM a -> L.Text
48renderHtml = renderMarkup 31renderHtml = renderMarkup
49renderHtmlT :: Monad m => MarkupT m a -> m L.Text
50renderHtmlT = renderMarkupT
51
52renderMarkupWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m L.Text
53renderMarkupWithT g = liftM (BU.renderMarkupWith g) . execMarkupT
54 32
55renderMarkupWith :: (ByteString -> Text) -> MarkupM a -> L.Text 33renderMarkupWith :: (ByteString -> Text) -> MarkupM a -> L.Text
56renderMarkupWith g = runIdentity . renderMarkupWithT g 34renderMarkupWith g = (BH.renderHtmlWith g) . execMarkup
57
58renderHtmlWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m L.Text
59renderHtmlWithT g = liftM (BH.renderHtmlWith g) . execMarkupT
60 35
61renderHtmlWith :: (ByteString -> Text) -> MarkupM a -> L.Text 36renderHtmlWith :: (ByteString -> Text) -> MarkupM a -> L.Text
62renderHtmlWith g = runIdentity . renderHtmlWithT g 37renderHtmlWith = renderMarkupWith
63
64renderHtmlBuilderWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m B.Builder
65renderHtmlBuilderWithT g = liftM (BH.renderHtmlBuilderWith g) . execMarkupT
66
67renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder
68renderHtmlBuilderWith g = runIdentity . renderHtmlBuilderWithT g
69 38
39renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder
40renderMarkupBuilderWith g = (BU.renderMarkupBuilderWith g) . execMarkup
70 41
71renderMarkupBuilderWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m B.Builder 42renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder
72renderMarkupBuilderWithT g = liftM (BU.renderMarkupBuilderWith g) . execMarkupT 43renderHtmlBuilderWith = renderHtmlBuilderWith
73 44
74renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder
75renderMarkupBuilderWith g = runIdentity . renderMarkupBuilderWithT g