{-# OPTIONS_GHC -F -pgmFtrhsx #-} module Pages.GuestBookEntries ( guestBookEntriesPage ) where import HSP import Happstack.Server (Method(GET), Response, ServerPart, ServerPartT, methodM) import Happstack.State (query) import Pages.AppTemplate (appTemplate) import Pages.Common (dateStr) import State.GuestBook (ReadGuestBook(..)) import Types.GuestBook (GuestBook(..), GuestBookEntry(..)) guestBookEntriesPage :: ServerPart Response guestBookEntriesPage = do methodM GET gb <- query ReadGuestBook appTemplate "Guestbook Entries" () (guestBookXML gb) guestBookXML :: GuestBook -> XMLGenT (ServerPartT IO) XML guestBookXML (GuestBook entries) =
<% str %>
displayemail "" = "" displayemail x = "<" ++ x ++ ">"