Fix a couple of GET's in the controller match expression
These should be symbols, not just placeholders.
This commit is contained in:
parent
960eac26d7
commit
939b8b8bb6
1 changed files with 2 additions and 2 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue