diff options
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) |