diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-08-02 19:17:14 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-08-02 19:18:25 +0200 |
| commit | d3329551fe2b90a454617da0f241e51fb4a72c58 (patch) | |
| tree | 2c10208da2f049f20b6fdcbad95495ec36517e67 | |
| parent | 614ea0576743e7ab83a7b4f82b48f272a67ebbf7 (diff) | |
| download | cuirass-d3329551fe2b90a454617da0f241e51fb4a72c58.tar cuirass-d3329551fe2b90a454617da0f241e51fb4a72c58.tar.gz | |
http: Fix string concatenation.
This is a follow-up of 614ea0576743e7ab83a7b4f82b48f272a67ebbf7.
* src/cuirass/http.scm (url-handler): Fix string concatenation.
| -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 bcd6217..39d8711 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -367,7 +367,7 @@ Hydra format." (products (and build (db-get-build-products id)))) (if build (respond-html - (html-page (string-append "Build " id) + (html-page (string-append "Build " (number->string id)) (build-details build products) `(((#:name . ,(assq-ref build #:specification)) (#:link . ,(string-append "/jobset/" (assq-ref build #:specification))))))) |