{-# LANGUAGE FlexibleContexts #-}
{-# OPTIONS_GHC -F -pgmFtrhsx #-}
module Theme.Template where
import Clckwrks
import Data.String (IsString(..))
import Data.Text (Text)
import HSP.Google.Analytics (UACCT)
template ::
( EmbedAsChild (Clck ClckURL) headers
, EmbedAsChild (Clck ClckURL) body
) =>
String
-> headers
-> body
-> XMLGenT (Clck ClckURL) XML
template title headers body =
<% title %>
<% headers %>
-- TODO: only show when running on live site, not testing/devel
-- <% analyticsAsync (UACCT "UA-7111625-1") %>
Happstack
<% getMenu %>
<% body %>