Handle unknown requests better within controllers
This commit is contained in:
parent
c9e0e311bb
commit
263eb0e0a9
|
@ -114,7 +114,8 @@
|
|||
(target_commit ,(parse-commit conn) #:required)))))
|
||||
(render-compare/packages mime-types
|
||||
conn
|
||||
parsed-query-parameters)))))
|
||||
parsed-query-parameters)))
|
||||
(_ #f)))
|
||||
|
||||
(define (render-compare mime-types
|
||||
conn
|
||||
|
|
|
@ -202,11 +202,12 @@
|
|||
(uri-path (request-uri request)))
|
||||
|
||||
(define (delegate-to f)
|
||||
(f request
|
||||
method-and-path-components
|
||||
mime-types
|
||||
body
|
||||
conn))
|
||||
(or (f request
|
||||
method-and-path-components
|
||||
mime-types
|
||||
body
|
||||
conn)
|
||||
(not-found (request-uri request))))
|
||||
|
||||
(match method-and-path-components
|
||||
(('GET)
|
||||
|
|
|
@ -44,7 +44,8 @@
|
|||
(render-job mime-types
|
||||
conn
|
||||
job-id
|
||||
parsed-query-parameters)))))
|
||||
parsed-query-parameters)))
|
||||
(_ #f)))
|
||||
|
||||
(define (render-jobs mime-types conn)
|
||||
(render-html
|
||||
|
|
|
@ -207,4 +207,5 @@
|
|||
"/latest-processed-revision"))
|
||||
(render-unknown-revision mime-types
|
||||
conn
|
||||
commit-hash))))))
|
||||
commit-hash))))
|
||||
(_ #f)))
|
||||
|
|
|
@ -136,7 +136,8 @@
|
|||
#:path-base path))
|
||||
(render-unknown-revision mime-types
|
||||
conn
|
||||
commit-hash)))))
|
||||
commit-hash)))
|
||||
(_ #f)))
|
||||
|
||||
(define (texinfo->variants-alist s)
|
||||
(let ((stexi (texi-fragment->stexi s)))
|
||||
|
|
Loading…
Reference in New Issue