cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/web/controller.scm
View file

@ -686,11 +686,11 @@
(define (controller request method-and-path-components mime-types body) (define (controller request method-and-path-components mime-types body)
(match method-and-path-components (match method-and-path-components
((GET "assets" rest ...) (('GET "assets" rest ...)
(or (render-static-asset (string-join rest "/") (or (render-static-asset (string-join rest "/")
(request-headers request)) (request-headers request))
(not-found (request-uri request)))) (not-found (request-uri request))))
((GET "healthcheck") (('GET "healthcheck")
(let ((database-status (let ((database-status
(catch (catch
#t #t