haskweb/App/Error.hs

module App.Error (
    PageNotFound(..)
) where

import Network.FastCGI
import Network.URI
import Template

import Request

data PageNotFound = PageNotFound

instance RequestHandler PageNotFound where
    handle handler = do
        uri <- requestURI
        let path = uriPath uri
        res <- render "error404" [ ("pagetitle", "Seite nicht gefunden")
                                 , ("path", path)]
        output res