forked from cadence/breezewiki
Cadence Ember
80f03aac18
* Viewing for wiki pages * Searches * Categories * Logo * Image proxy * Config loaded from config.txt * AGPL 3 license
18 lines
291 B
Racket
18 lines
291 B
Racket
#lang racket/base
|
|
|
|
(require html-writing
|
|
web-server/http)
|
|
|
|
(provide
|
|
page-not-found)
|
|
|
|
(define (page-not-found req)
|
|
(response/output
|
|
#:code 404
|
|
(λ (out)
|
|
(write-html
|
|
`(html
|
|
(body
|
|
(h1 "Not found.")
|
|
(pre ,(format "~v" req))))
|
|
out))))
|