haskweb/App/Private.hs

module App.Private (
    Private(..)    
) where

import Control.Monad.State (gets)

import Request
import Template
import Network.FastCGI
import AppMonad (numVisited, App)
import Database

data Private = Private

instance RequestHandler Private where
    requireLogin _ = True
    handle handler = do
        res <- render "private" [ ("pagetitle", "Geheimes Zeug") ]
        output res