html: Handle type quirk of "mergedwith" field.

* mumi/web/view/html.scm (issue-page): Deal with confusing type of
"mergedwith" field, which may be a string representing a list or a
proper number.

diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index bff509fb4b316d90514f1e5e4b46c75776733869..0c33d53647451f6ba74fd1c7dafd55c649c019d4 100644 (file)
--- 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"))