From 939b8b8bb61e63d194bbcfd6ee473f44c31d0262 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 1 Sep 2019 18:48:05 +0100 Subject: Fix a couple of GET's in the controller match expression These should be symbols, not just placeholders. --- guix-data-service/web/controller.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index b305823..85c2b6a 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -686,11 +686,11 @@ (define (controller request method-and-path-components mime-types body) (match method-and-path-components - ((GET "assets" rest ...) + (('GET "assets" rest ...) (or (render-static-asset (string-join rest "/") (request-headers request)) (not-found (request-uri request)))) - ((GET "healthcheck") + (('GET "healthcheck") (let ((database-status (catch #t -- cgit v1.2.3