From bee25d7a671449baca81b63398e67ec0a36b7b9e Mon Sep 17 00:00:00 2001
From: BonfaceKilz
Date: Sat, 5 Dec 2020 23:56:18 +0300
Subject: gn: python3-genenetwork2: Remove unnecessary begin form

* gn/packages/genenetwork.scm (python3-genenetwork2):
[arguments] {generate-graph}: Remove begin form.
---
 gn/packages/genenetwork.scm | 39 +++++++++++++++++++--------------------
 1 file changed, 19 insertions(+), 20 deletions(-)

(limited to 'gn/packages')

diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index 8454410..5987af8 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -501,26 +501,25 @@ Graphical Fragment Assembly} files and related formats.")
                    #t))
                (add-after 'install 'generate-graph
                  (lambda* (#:key inputs outputs #:allow-other-keys)
-                   (begin
-                     (call-with-output-file
-                           (string-append
-                            (assoc-ref outputs "out")
-                            "/lib/python3.8/site-packages"
-                            "/wqflask/dependency-graph.html")
-                         (lambda (port)
-                           (format
-                            port "~a"
-                            ,(call-with-output-string
-                              (lambda (p)
-                                (with-output-to-port p
-                                  (lambda ()
-                                    (run-with-store
-                                        (open-connection)
-                                      (export-graph
-                                       (list this-package)
-                                       p
-                                       #:node-type %package-node-type
-                                       #:backend %d3js-backend))))))))))))
+                   (call-with-output-file
+                       (string-append
+                        (assoc-ref outputs "out")
+                        "/lib/python3.8/site-packages"
+                        "/wqflask/dependency-graph.html")
+                     (lambda (port)
+                       (format
+                        port "~a"
+                        ,(call-with-output-string
+                           (lambda (p)
+                             (with-output-to-port p
+                               (lambda ()
+                                 (run-with-store
+                                     (open-connection)
+                                   (export-graph
+                                    (list this-package)
+                                    p
+                                    #:node-type %package-node-type
+                                    #:backend %d3js-backend)))))))))))
                (add-after 'install 'generate-dependency-file
                  (lambda* (#:key inputs outputs #:allow-other-keys)
                    (call-with-output-file
-- 
cgit v1.2.3