aboutsummaryrefslogtreecommitdiff
path: root/gn/packages
diff options
context:
space:
mode:
authorBonfaceKilz2020-12-05 23:56:18 +0300
committerGitea2020-12-06 10:51:06 -0600
commitbee25d7a671449baca81b63398e67ec0a36b7b9e (patch)
tree35f2d34c7b3611150db1acd633d1969e82233c6c /gn/packages
parentb418d966b131abf6291493b525b9828161ecb02f (diff)
downloadguix-bioinformatics-bee25d7a671449baca81b63398e67ec0a36b7b9e.tar.gz
gn: python3-genenetwork2: Remove unnecessary begin form
* gn/packages/genenetwork.scm (python3-genenetwork2): [arguments] {generate-graph}: Remove begin form.
Diffstat (limited to 'gn/packages')
-rw-r--r--gn/packages/genenetwork.scm39
1 files changed, 19 insertions, 20 deletions
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