diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-09-01 18:48:05 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-09-01 18:48:31 +0100 |
| commit | 939b8b8bb61e63d194bbcfd6ee473f44c31d0262 (patch) | |
| tree | a4f0efee37fcc2b128d4c245003520918e6593db | |
| parent | 960eac26d7f2033789dfadb130bf899ac99ddd61 (diff) | |
| download | data-service-939b8b8bb61e63d194bbcfd6ee473f44c31d0262.tar data-service-939b8b8bb61e63d194bbcfd6ee473f44c31d0262.tar.gz | |
Fix a couple of GET's in the controller match expression
These should be symbols, not just placeholders.
| -rw-r--r-- | guix-data-service/web/controller.scm | 4 |
1 files 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 |