From 058e1c062031c1dae0f1be6c5fb312e34406c6a9 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 17 Jan 2025 10:08:03 +0000 Subject: Guard against issue titles having unmatched square brackets --- guix-qa-frontpage/patchwork.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3