[PATCH] web: Include merged_with in graphql .

[Christopher Baines]

* mumi/web/graphql.scm (<issue>): Include merged_with.
---
 mumi/web/graphql.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/mumi/web/graphql.scm b/mumi/web/graphql.scm
index 6dcb8ce..2c7c676 100644
--- a/mumi/web/graphql.scm
+++ b/mumi/web/graphql.scm
@@ -69,7 +69,17 @@
               (issue-messages (bug-num parent))))
   (blocked_by (non-nullable-type (list-type <issue>))
               (lambda (parent . _)
-                (map bug-status (bug-blockedby parent)))))
+                (map bug-status (bug-blockedby parent))))
+  (merged_with (non-nullable-type (list-type <issue>))
+               (lambda (parent . _)
+                 (map
+                  bug-status
+                  (match (bug-mergedwith parent)
+                   ((? string? str)
+                    (string-split str #\space))
+                   ((? number? n)
+                    (list (number->string n)))
+                   (#f '()))))))
 
 (define-object-type <person>
   (name <string> (lambda (parent . _)
-- 
2.41.0