[PATCH] web: Include blocked-by in graphql <issue>.

[Christopher Baines]

* mumi/web/graphql.scm (<issue>): Include blocked-by.
---
 mumi/web/graphql.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mumi/web/graphql.scm b/mumi/web/graphql.scm
index aa4f38c..3cc19cd 100644
--- a/mumi/web/graphql.scm
+++ b/mumi/web/graphql.scm
@@ -63,7 +63,10 @@
               (list))))
   (messages (non-nullable-type (list-type <email>))
             (lambda (parent . _)
-              (issue-messages (bug-num parent)))))
+              (issue-messages (bug-num parent))))
+  (blocked-by (non-nullable-type (list-type <issue>))
+              (lambda (parent . _)
+                (map bug-status (bug-blockedby parent)))))
 
 (define-object-type <person>
   (name <string> (lambda (parent . _)
-- 
2.40.1