#: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
,(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"))