src/Text/BlazeT/Renderer/String.hs

   1 {-# LANGUAGE RankNTypes #-}
   2 module Text.BlazeT.Renderer.String
   3     ( fromChoiceString
   4     , renderMarkup
   5     , renderHtml
   6   ) where
   7
   8 import           Text.Blaze.Internal (ChoiceString)
   9 import qualified Text.Blaze.Renderer.String as BU
  10 import           Text.BlazeT
  11
  12 fromChoiceString :: ChoiceString -> String -> String
  13 fromChoiceString = BU.fromChoiceString
  14
  15 renderMarkup :: MarkupM a -> String
  16 renderMarkup = BU.renderMarkup . execMarkup
  17
  18 renderHtml :: MarkupM a -> String
  19 renderHtml = renderMarkup
  20