diff options
-rw-r--r-- | mumi/web/view/html.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index bff509f..0c33d53 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -22,6 +22,7 @@ #:use-module (mumi config) #:use-module (mumi messages) #:use-module (mumi web view utils) + #:use-module (ice-9 match) #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) #:export (index @@ -345,7 +346,14 @@ range. The supported arguments are the same as for " ,(map (lambda (id) `(li (a (@ (href ,(string-append "/issue/" id))) ,id))) - (string-split (bug-mergedwith bug) #\space)))) + ;; XXX: This field can either hold a + ;; string of multiple ids, or a single + ;; number. Deal with this mess. + (match (bug-mergedwith bug) + ((? string? str) + (string-split str #\space)) + ((? number? n) + (list (number->string n))))))) '()))) (div (@ (class "row")) |