diff options
author | Christopher Baines <mail@cbaines.net> | 2019-10-18 17:23:59 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-10-18 17:23:59 +0100 |
commit | 263eb0e0a9ab8cd877b8b1723a884b3c306fd012 (patch) | |
tree | 8809ae173a10210803bd3105d50dbee7f14ed90c /guix-data-service/web/controller.scm | |
parent | c9e0e311bbee6dd85f017dbf5704492df72c2e9a (diff) | |
download | data-service-263eb0e0a9ab8cd877b8b1723a884b3c306fd012.tar data-service-263eb0e0a9ab8cd877b8b1723a884b3c306fd012.tar.gz |
Handle unknown requests better within controllers
Diffstat (limited to 'guix-data-service/web/controller.scm')
-rw-r--r-- | guix-data-service/web/controller.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index b5df73b..27b195c 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -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) |