{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} module GuestBook.View where import GuestBook.State2 (GuestBook(..),GuestBookEntry(..)) import HSP import qualified HSX.XMLGenerator as HSX (XML) import System.Locale (defaultTimeLocale) import System.Time(ClockTime(..), formatCalendarTime, toUTCTime) -- * Convenience Functions dateStr :: ClockTime -> String dateStr ct = formatCalendarTime defaultTimeLocale "%a, %B %d, %Y at %H:%M:%S (UTC)" (toUTCTime ct) -- * Main Implementation instance (XMLGenerator m) => (EmbedAsChild m (GuestBookEntry, Bool)) where asChild ((GuestBookEntry author message date email), alt) = <%
<% str %>
displayemail "" = "" displayemail x = "<" ++ x ++ ">" instance (XMLGenerator m) => (EmbedAsChild m GuestBook) where asChild (GuestBook entries) = <%