Fix a couple of GET's in the controller match expression

These should be symbols, not just placeholders.
This commit is contained in:
Christopher Baines 2019-09-01 18:48:05 +01:00
parent 960eac26d7
commit 939b8b8bb6

View file

@ -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