{-# OPTIONS_GHC -F -pgmFtrhsx #-} <% module Theme.Home where import Clckwrks summaryBox :: PageId -> GenXML (Clck ClckURL) summaryBox pid =
<% getPageSummary pid %> read more...
page :: XMLGenT (Clck ClckURL) XML %> <% getPageTitle %>
Clckwrks
for secure, reliable, &
integrated websites -- <% getPageMenu %> <% getMenu %>

<% getPageTitle %>

I got a big old blue box.
<% summaryBox (PageId 2) %> <% summaryBox (PageId 3) %> <% summaryBox (PageId 4) %>