module Text.Hamlet
(
hamlet
, xhamlet
, hamletWithSettings
, HamletSettings (..)
, defaultHamletSettings
, Html
, Hamlet
, renderHamlet
, renderHtml
, preEscapedString
, string
, unsafeByteString
, cdata
) where
import Text.Hamlet.Parse
import Text.Hamlet.Quasi
import Text.Blaze
import qualified Data.ByteString.Lazy as L
import Data.Monoid (mappend)
type Hamlet url = (url -> String) -> Html ()
renderHamlet :: (url -> String) -> Hamlet url -> L.ByteString
renderHamlet render h = renderHtml $ h render
cdata :: Html () -> Html ()
cdata h =
preEscapedString "<![CDATA["
`mappend`
h
`mappend`
preEscapedString "]]>"