Return 404 for unsupported URLs

Julien LepillerWed Aug 25 23:19:02+0200 2021

3aebc01

Return 404 for unsupported URLs

gitile/handler.scm

3838 
  (format #t "Not found: ~a~%" (uri->string (request-uri request)))
3939 
  (show (style `((p "Resource not found: "
4040 
                    ,(uri->string (request-uri request))))
41-
               "" "" footer)))
41+
               "" "" footer)
42+
        #:code 404))
4243 
4344 
(define (style page project ref footer)
4445 
  `(html