{-# LANGUAGE FlexibleContexts #-}
{-# OPTIONS_GHC -F -pgmFtrhsx #-}
module Theme.Template where
import Clckwrks
import Clckwrks.ProfileData.Acid (HasRole(..))
import qualified Data.Set as Set
import Data.String (IsString(..))
import Data.Text (Text)
import HSP.Google.Analytics (UACCT(..), analyticsAsync)
template ::
( EmbedAsChild (Clck ClckURL) headers
, EmbedAsChild (Clck ClckURL) body
) =>
String
-> headers
-> body
-> XMLGenT (Clck ClckURL) XML
template title headers body =
<% title %>
<% headers %>
<% googleAnalytics %>
<% body %>