module Ella.Utils ( addHtml
                 )

where

import Ella.GenUtils (utf8)
import Ella.Response (addContent, Response)
import Text.XHtml (renderHtml, HTML)

-- Utility functions

-- | Adds HTML to a response
addHtml :: (HTML html) => html -> Response -> Response
addHtml html resp = addContent (utf8 $ renderHtml html) resp