module Hakyll.Web.Blaze
( getFieldHtml
, getFieldHtml'
, getBodyHtml
, getBodyHtml'
) where
import Text.Blaze (Html, toHtml, preEscapedString)
import Hakyll.Web.Page
import Hakyll.Web.Page.Metadata
getFieldHtml :: String -> Page a -> Html
getFieldHtml key = preEscapedString . getField key
getFieldHtml' :: String -> Page a -> Html
getFieldHtml' key = toHtml . getField key
getBodyHtml :: Page String -> Html
getBodyHtml = preEscapedString . pageBody
getBodyHtml' :: Page String -> Html
getBodyHtml' = toHtml . pageBody