diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2018-02-19 22:22:03 +0100 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2018-02-19 22:22:03 +0100 |
| commit | 0f877a1c197e229d7b6797c6d01540d6743da756 (patch) | |
| tree | 47ceaadc48a3a57f8d0fee131e4e1c91bd371036 | |
| parent | 8277233f1532d58334f9ac36d36f11a2d1fcf7a3 (diff) | |
| download | cuirass-0f877a1c197e229d7b6797c6d01540d6743da756.tar cuirass-0f877a1c197e229d7b6797c6d01540d6743da756.tar.gz | |
http: Convert build-id URL part to number.
* src/cuirass/http.scm (url-handler): Convert build-id URL part to number.
| -rw-r--r-- | src/cuirass/http.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 3856b1d..3f49369 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -140,12 +140,12 @@ (((or "jobsets" "specifications") . rest) (respond-json (object->json-string (db-get-specifications db)))) (("build" build-id) - (let ((hydra-build (handle-build-request db build-id))) + (let ((hydra-build (handle-build-request db (string->number build-id)))) (if hydra-build (respond-json (object->json-string hydra-build)) (respond-build-not-found build-id)))) (("build" build-id "log" "raw") - (let ((build (db-get-build db build-id))) + (let ((build (db-get-build db (string->number build-id)))) (if build (match (assq-ref build #:outputs) (((_ (#:path . (? string? output))) _ ...) |