~ruther/guix-local: gnu: seqan-1: Use gexp for builder.

eec1bdcd9e49962979a0f6abce65bd87d550b395 — Ricardo Wurmus 4 years ago 2c1c75a

gnu: seqan-1: Use gexp for builder.

* gnu/packages/bioinformatics.scm (seqan-1)[arguments]: Use a gexp to remove
references to %build-inputs and %outputs.

patch browse .tar.gz .zip

1 files changed, 11 insertions(+), 12 deletions(-)

M gnu/packages/bioinformatics.scm

M gnu/packages/bioinformatics.scm => gnu/packages/bioinformatics.scm +11 -12

@@ 7128,18 7128,17 @@ bioinformatics file formats, sequence alignment, and more.")
     (arguments
      `(#:modules ((guix build utils))
        #:builder
-       (begin
-         (use-modules (guix build utils))
-         (let ((tar  (assoc-ref %build-inputs "tar"))
-               (bzip (assoc-ref %build-inputs "bzip2"))
-               (out  (assoc-ref %outputs "out"))
-               (doc  (assoc-ref %outputs "doc")))
-           (setenv "PATH" (string-append tar "/bin:" bzip "/bin"))
-           (invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
-           (chdir (string-append "seqan-library-" ,version))
-           (copy-recursively "include" (string-append out "/include"))
-           (copy-recursively "share"  (string-append doc "/share"))
-           #t))))
+       ,#~(begin
+            (use-modules (guix build utils))
+            (let ((tar  #$(this-package-native-input "tar"))
+                  (bzip #$(this-package-native-input "bzip2"))
+                  (out #$output)
+                  (doc #$output:doc))
+              (setenv "PATH" (string-append tar "/bin:" bzip "/bin"))
+              (invoke "tar" "xvf" #$(this-package-native-input "source"))
+              (chdir (string-append "seqan-library-" #$version))
+              (copy-recursively "include" (string-append out "/include"))
+              (copy-recursively "share"  (string-append doc "/share"))))))
     (native-inputs
      `(("source" ,source)
        ("tar" ,tar)