[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Mon, 5 Feb 2018 17:16:47 -0500 (EST) |
branch: master
commit dd75b5bec9f09f8416a7af5b2547536d2be6bc98
Author: Ludovic Courtès <address@hidden>
Date: Mon Feb 5 22:58:12 2018 +0100
http: /jobsets returns a list of jobsets.
Reported by Danny Milosavljevic.
* src/cuirass/http.scm (url-handler) <"jobsets"> Return the result of
'db-get-specifications' as-is, not just the car.
---
src/cuirass/http.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 9541844..9528691 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -138,7 +138,7 @@
(request-path-components request)
'method-not-allowed)
(((or "jobsets" "specifications") . rest)
- (respond-json (object->json-string (car (db-get-specifications db)))))
+ (respond-json (object->json-string (db-get-specifications db))))
(("build" build-id)
(let ((hydra-build (handle-build-request db build-id)))
(if hydra-build