diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-02-05 22:58:12 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-02-05 23:01:26 +0100 |
| commit | dd75b5bec9f09f8416a7af5b2547536d2be6bc98 (patch) | |
| tree | 612227d84c1110d857a25c383a69dff6ed36cce7 /src | |
| parent | e5220dbed34796ecbc533703c5188008fea5d45a (diff) | |
| download | cuirass-dd75b5bec9f09f8416a7af5b2547536d2be6bc98.tar cuirass-dd75b5bec9f09f8416a7af5b2547536d2be6bc98.tar.gz | |
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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/http.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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 |