{-# LANGUAGE RecordWildCards #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} <% module Theme.Blog where import Clckwrks postsHTML :: XMLGenT (Clck ClckURL) XML postsHTML = do posts <- getPosts
    <% mapM postHTML posts %>
postHTML :: Page -> XMLGenT (Clck ClckURL) XML postHTML Page{..} =

  • <% pageTitle %>

    <% pageDate %> <% pageSrc %>

    permalink

    • page :: XMLGenT (Clck ClckURL) XML %> Blog
    Clckwrks
    for secure, reliable, &
    integrated websites     <% getMenu %>
    <% postsHTML %>