04/07: gnu: sailfish: Do not attempt to unpack a directory.

[guix-commits]

rekado pushed a commit to branch core-updates-frozen
in repository guix.

commit 43927832324872e4d1f547ad5c43df76bb58bbf3
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sun Oct 24 21:35:57 2021 +0000

    gnu: sailfish: Do not attempt to unpack a directory.
    
    patch-and-repack no longer outputs a compressed archive when the input was a
    directory.
    
    * gnu/packages/bioinformatics.scm (sailfish)[arguments]: Adjust build phase
    'prepare-rapmap.
---
 gnu/packages/bioinformatics.scm | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index f559d9c..72336e8 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -9581,18 +9581,12 @@ dependency like SeqAn.")
              (let ((src "external/install/src/rapmap/")
                    (include "external/install/include/rapmap/")
                    (rapmap (assoc-ref inputs "rapmap")))
-               (mkdir-p "/tmp/rapmap")
-               (invoke "tar" "xf"
-                       (assoc-ref inputs "rapmap")
-                       "-C" "/tmp/rapmap"
-                       "--strip-components=1")
                (mkdir-p src)
                (mkdir-p include)
                (for-each (lambda (file)
                            (install-file file src))
-                         (find-files "/tmp/rapmap/src" "\\.(c|cpp)"))
-               (copy-recursively "/tmp/rapmap/include" include))
-             #t))
+                         (find-files (string-append rapmap "/src") 
"\\.(c|cpp)"))
+               (copy-recursively (string-append rapmap "/include") include))))
          (add-after 'unpack 'use-system-libraries
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* '("src/SailfishIndexer.cpp"