about summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2024-12-04 22:51:42 +0000
committerArun Isaac2024-12-04 22:51:42 +0000
commit9d952524d81341d6fc29310b8b5c14adf1424a1b (patch)
treed9e474e8040ce8ba519bbef729a9de1b59f518e5
parentc53c3b8b567e34c750fc792025d0109b240c7f8d (diff)
downloadguix-bioinformatics-9d952524d81341d6fc29310b8b5c14adf1424a1b.tar.gz
gn: graphaligner: Use search-inputs-directory.
* gn/packages/bioinformatics.scm (graphaligner)[arguments]: Use
search-inputs-directory in patch-source phase.
-rw-r--r--gn/packages/bioinformatics.scm19
1 files changed, 9 insertions, 10 deletions
diff --git a/gn/packages/bioinformatics.scm b/gn/packages/bioinformatics.scm
index 0cb199a..2ef727f 100644
--- a/gn/packages/bioinformatics.scm
+++ b/gn/packages/bioinformatics.scm
@@ -1918,16 +1918,15 @@ The path-guided stochastic gradient descent based 1D sort implemented in
            (delete 'configure) ; no configure phase
            (add-after 'unpack 'patch-source
              (lambda* (#:key inputs #:allow-other-keys)
-               (let ((concurrentqueue (assoc-ref inputs "concurrentqueue")))
-                 (delete-file-recursively "concurrentqueue")
-                 (substitute* "makefile"
-                   (("-Iconcurrentqueue")
-                    (string-append "-I" concurrentqueue "/include/concurrentqueue"))
-                   (("^JEMALLOCFLAGS.*")
-                    "JEMALLOCFLAGS= `pkg-config --libs jemalloc`\n")
-                   ;; No need to build statically.
-                   (("-Wl,-Bstatic") "")
-                   (("-static-libstdc\\+\\+") "")))))
+               (delete-file-recursively "concurrentqueue")
+               (substitute* "makefile"
+                 (("-Iconcurrentqueue")
+                  (string-append "-I" (search-input-directory inputs "/include/concurrentqueue")))
+                 (("^JEMALLOCFLAGS.*")
+                  "JEMALLOCFLAGS= `pkg-config --libs jemalloc`\n")
+                 ;; No need to build statically.
+                 (("-Wl,-Bstatic") "")
+                 (("-static-libstdc\\+\\+") ""))))
            (replace 'install
              (lambda* (#:key outputs #:allow-other-keys)
                (let ((out (assoc-ref outputs "out")))