1 files changed, 31 insertions, 36 deletions
diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm
index 82b64b5..540f909 100644
--- a/guix-qa-frontpage/mumi.scm
+++ b/guix-qa-frontpage/mumi.scm
@@ -97,43 +97,38 @@
                  #:verify-certificate? #t)))
       (if (null? chunks)
           (close-port port)
-          (begin
-            (with-exception-handler
-                (lambda (exn) #f)
-              (lambda ()
-                (let ((response
-                       (retry-on-error
-                        (lambda ()
-                          (graphql-http-get*
-                           url
-                           `(document
-                             ,@(map (lambda (number)
-                                      `(query (#(issue #:number ,number)
-                                               number title open severity tags
-                                               (merged_with number))))
-                                    (car chunks)))
-                           #:keep-alive? #t
-                           #:port port))
-                        #:times 1
-                        #:delay 0)))
+          (let ((response
+                 (retry-on-error
+                  (lambda ()
+                    (graphql-http-get*
+                     url
+                     `(document
+                       ,@(map (lambda (number)
+                                `(query (#(issue #:number ,number)
+                                         number title open severity tags
+                                         (merged_with number))))
+                              (car chunks)))
+                     #:keep-alive? #t
+                     #:port port))
+                  #:times 1
+                  #:delay 0)))
 
-                  (for-each
-                   (lambda (res)
-                     (let ((data (cdr res)))
-                       (hash-set! number-to-data
-                                  (assoc-ref data "number")
-                                  `((title . ,(assoc-ref data "title"))
-                                    (open? . ,(assoc-ref data "open"))
-                                    (tags . ,(vector->list
-                                              (assoc-ref data "tags")))
-                                    (merged-with . ,(map
-                                                     (lambda (data)
-                                                       (assoc-ref data "number"))
-                                                     (vector->list
-                                                      (assoc-ref data "merged_with"))))
-                                    (severity . ,(assoc-ref data "severity"))))))
-                   response)))
-              #:unwind? #t)
+            (for-each
+             (lambda (res)
+               (let ((data (cdr res)))
+                 (hash-set! number-to-data
+                            (assoc-ref data "number")
+                            `((title . ,(assoc-ref data "title"))
+                              (open? . ,(assoc-ref data "open"))
+                              (tags . ,(vector->list
+                                        (assoc-ref data "tags")))
+                              (merged-with . ,(map
+                                               (lambda (data)
+                                                 (assoc-ref data "number"))
+                                               (vector->list
+                                                (assoc-ref data "merged_with"))))
+                              (severity . ,(assoc-ref data "severity"))))))
+             response)
 
             (loop (cdr chunks) port))))