haskweb/App/Startpage.hs

{-# LANGUAGE OverloadedStrings #-}

module App.Startpage (
    Startpage(..)
) where

import Text.XHtml
import Control.Monad.State (gets)

import Request
import Template
import Network.FastCGI
import AppMonad (numVisited)

data Startpage = Startpage

instance RequestHandler Startpage where
    handle handler = do
        n <- gets numVisited
        result <- render "startpage" [("pagetitle", "Startseite"),
                                      ("visited", show n)]
        output result