diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-01-17 10:08:03 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-01-17 10:08:03 +0000 |
| commit | 058e1c062031c1dae0f1be6c5fb312e34406c6a9 (patch) | |
| tree | 2564884144dbb2655afc0a42d90cda6a4cd92d34 | |
| parent | 4b1a0204eb340ea0b773de0d3eed918c3660af87 (diff) | |
| download | qa-frontpage-058e1c062031c1dae0f1be6c5fb312e34406c6a9.tar qa-frontpage-058e1c062031c1dae0f1be6c5fb312e34406c6a9.tar.gz | |
Guard against issue titles having unmatched square brackets
| -rw-r--r-- | guix-qa-frontpage/patchwork.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index 06d18e4..e1ee24f 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -194,7 +194,9 @@ (define (strip-title-prefix str) (if (string-prefix? "[" str) (let ((start (string-index str #\]))) - (string-drop str (+ 1 start))) + (if start + (string-drop str (+ 1 start)) + str)) str)) (define issue-number-to-series-hash-table |