summary refs log tree commit diff
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2016-12-19 21:13:53 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2016-12-20 05:36:55 +0100
commit33d5b2464deffc24473ff6542f6731deaba8faba (patch)
tree3324c19631a8a688a19d3823114bbe28db6fbdea
parent2fb5af2c2ba9087abc4cc53652cd02c2c0cd49bb (diff)
downloadguix-33d5b2464deffc24473ff6542f6731deaba8faba.tar.gz
gnu: cutadapt: Use ‘modify-phases’ syntax.
* gnu/packages/bioinformatics.scm (cutadapt)[arguments]: Use
‘modify-phases’.
-rw-r--r--gnu/packages/bioinformatics.scm29
1 files changed, 15 insertions, 14 deletions
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index f363936421..912941e113 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -1816,20 +1816,21 @@ preparation protocols.")
                 "19smhh6444ikn4jlmyhvffw4m5aw7yg07rqsk7arg8dkwyga1i4v"))))
     (build-system python-build-system)
     (arguments
-     ;; tests must be run after install
-     `(#:phases (alist-cons-after
-                 'install 'check
-                 (lambda* (#:key inputs outputs #:allow-other-keys)
-                   (setenv "PYTHONPATH"
-                           (string-append
-                            (getenv "PYTHONPATH")
-                            ":" (assoc-ref outputs "out")
-                            "/lib/python"
-                            (string-take (string-take-right
-                                          (assoc-ref inputs "python") 5) 3)
-                            "/site-packages"))
-                   (zero? (system* "nosetests" "-P" "tests")))
-                 (alist-delete 'check %standard-phases))))
+     `(#:phases
+       (modify-phases %standard-phases
+         ;; The tests must be run after installation.
+         (delete 'check)
+         (add-after 'install 'check
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (setenv "PYTHONPATH"
+                     (string-append
+                      (getenv "PYTHONPATH")
+                      ":" (assoc-ref outputs "out")
+                      "/lib/python"
+                      (string-take (string-take-right
+                                    (assoc-ref inputs "python") 5) 3)
+                      "/site-packages"))
+             (zero? (system* "nosetests" "-P" "tests")))))))
     (inputs
      `(("python-xopen" ,python-xopen)))
     (native-inputs