{-# LANGUAGE FlexibleContexts #-}
{-# OPTIONS_GHC -F -pgmFtrhsx #-}
module Clckwrks.BasicTemplate (basicTemplate) where
import Control.Applicative ((<$>))
import Clckwrks.Monad
import Happstack.Server (Response, toResponse)
import Happstack.Server.HSP.HTML ()
import HSP
basicTemplate ::
( Functor m
, Monad m
, EmbedAsChild (ClckT url m) headers
, EmbedAsChild (ClckT url m) body
) => String -> headers -> body -> ClckT url m Response
basicTemplate title headers body =
toResponse <$> (unXMLGenT $
<% title %>
<% headers %>
<% body %>
)