{-# LANGUAGE FlexibleContexts, OverloadedStrings #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} module DefaultTheme where import Data.Text (Text) import Happstack.Server import HSP import Theme theme :: Theme theme = Theme { themeName = "default-theme" , _themeTemplate = pageTemplate } pageTemplate :: ( EmbedAsChild (ServerPartT IO) headers , EmbedAsChild (ServerPartT IO) body) => Text -- ^ page title -> headers -- ^ extra elements to add to \ -> body -- ^ elements to insert in \ -> XMLGenT (ServerPartT IO) XML pageTemplate title hdrs bdy = <% title %> <% hdrs %> <% bdy %>