[happstack-hsp: bumped to 6.0.1. Added defaultTemplate, re-export HSP and HSP.ServerPart() from Happstack.Server.HSP.Html. jeremy@n-heptane.com**20110221211900 Ignore-this: 5f7ca322410a87f343ec3007c894fd56 ] hunk ./happstack-hsp/happstack-hsp.cabal 2 -Version: 6.0.0 +Version: 6.0.1 hunk ./happstack-hsp/happstack-hsp.cabal 10 --- Copyright: +Copyright: 2011 Jeremy Shaw hunk ./happstack-hsp/src/Happstack/Server/HSP/HTML.hs 1 +-- | support for using HSP+Happstack for rendering HTML hunk ./happstack-hsp/src/Happstack/Server/HSP/HTML.hs 3 -{-# OPTIONS_GHC -fno-warn-orphans #-} +{-# OPTIONS_GHC -fno-warn-orphans -F -pgmFtrhsx #-} hunk ./happstack-hsp/src/Happstack/Server/HSP/HTML.hs 5 - ( webHSP + ( defaultTemplate + , webHSP hunk ./happstack-hsp/src/Happstack/Server/HSP/HTML.hs 8 + , module HSP hunk ./happstack-hsp/src/Happstack/Server/HSP/HTML.hs 17 - , Response() + , Response hunk ./happstack-hsp/src/Happstack/Server/HSP/HTML.hs 20 - ( HSP() - , XML() - , XMLMetaData(XMLMetaData, contentType) - , evalHSP - , html4Strict - , renderAsHTML - ) +import HSP.ServerPartT () +import qualified HSX.XMLGenerator as HSX hunk ./happstack-hsp/src/Happstack/Server/HSP/HTML.hs 35 --- | Converts a @HSP XML@ to a Happstack Response. +-- | A generic webpage template +defaultTemplate :: (XMLGenerator m, EmbedAsChild m headers, EmbedAsChild m body) => + String -- ^ text to use in \ tag + -> headers -- ^ extra headers to insert in \ tag. Use @()@ if none. + -> body -- ^ content to put between the \ tags. + -> m (HSX.XML m) +defaultTemplate title headers body = + unXMLGenT $ + + + <% title %> + <% headers %> + + + <% body %> + + + +-- | Converts a @HSP XML@ to a Happstack 'Response'. hunk ./happstack-hsp/src/Happstack/Server/HSP/HTML.hs 55 --- with HSP, you can wrap up your HTML as webHSP $ ... +-- with HSP, you can wrap up your HTML as webHSP $ \...\ hunk ./happstack-hsp/src/Happstack/Server/HSP/HTML.hs 60 --- | webHSP with XMLMetaData +-- | webHSP with 'XMLMetaData'