{-# OPTIONS_GHC -F -pgmFtrhsx #-} module Theme.Page where import Clckwrks import Data.Text (unpack) import Theme.Template page :: XMLGenT (Clck ClckURL) XML page = do ttl <- lift getPageTitle template (unpack ttl) () $ <%>

<% getPageTitle %>

<% getPageContent %>
{- <% getPageTitle %> <% getMenu %>
The relentless, uncompromised power and beauty of Haskell for the web

Elegance

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec ut tortor non augue tincidunt iaculis. Cras ac diam rhoncus nibh commodo iaculis vel sed ligula. Curabitur fringilla tortor sed massa consequat convallis. Maecenas consectetur tincidunt porttitor. Aenean quis posuere augue.

Speed

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec ut tortor non augue tincidunt iaculis. Cras ac diam rhoncus nibh commodo iaculis vel sed ligula. Curabitur fringilla tortor sed massa consequat convallis. Maecenas consectetur tincidunt porttitor. Aenean quis posuere augue.

Power

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec ut tortor non augue tincidunt iaculis. Cras ac diam rhoncus nibh commodo iaculis vel sed ligula. Curabitur fringilla tortor sed massa consequat convallis. Maecenas consectetur tincidunt porttitor. Aenean quis posuere augue.

{- <% getPageTitle %>
Clckwrks
for secure, reliable, &
integrated websites -- <% getPageMenu %> <% getMenu %>Te

<% getPageTitle %>

<% getPageContent %>

-} -}