module Happstack.Server.HSP.HTML
( defaultTemplate
, webHSP
, webHSP'
, module HSP
) where
import Control.Monad.Trans (MonadIO(), liftIO)
import qualified Data.ByteString.Char8 as P
import qualified Data.ByteString.Lazy.UTF8 as L
import Control.Monad (liftM)
import Happstack.Server
( ToMessage(toMessage, toContentType, toResponse)
, Response
)
import HSP
import HSP.ServerPartT ()
import Happstack.Server.HSX ()
instance ToMessage XML where
toContentType _ = P.pack "text/html;charset=utf-8"
toMessage xml = toMessage (html4Strict, xml)
instance ToMessage (Maybe XMLMetaData, XML) where
toContentType (Just md,_) = P.pack (contentType md)
toContentType _ = P.pack "text/html;charset=utf-8"
toMessage (Just (XMLMetaData (showDt, dt) _ pr), xml) =
L.fromString ((if showDt then (dt ++) else id) (pr xml))
toMessage (Nothing, xml) =
L.fromString (renderAsHTML xml)
defaultTemplate :: (XMLGenerator m, EmbedAsChild m headers, EmbedAsChild m body) =>
String
-> headers
-> body
-> m (XMLType m)
defaultTemplate title headers body =
unXMLGenT $
<html>
<head>
<title><% title %></title>
<% headers %>
</head>
<body>
<% body %>
</body>
</html>
webHSP :: (MonadIO m) => HSP XML -> m Response
webHSP = webHSP' Nothing
webHSP' :: (MonadIO m) => Maybe XMLMetaData -> HSP XML -> m Response
webHSP' metadata hsp = toResponse `liftM` liftIO (evalHSP metadata hsp)