gnu: seqan-2: Use gexp for builder.

* gnu/packages/bioinformatics.scm (seqan-2)[arguments]: Use a gexp to remove
references to %build-inputs and %outputs.
This commit is contained in:
Ricardo Wurmus 2021-12-04 19:39:19 +01:00
parent f41576c09f
commit 2c1c75a56c
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -7094,18 +7094,17 @@ (define-public seqan-2
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let ((tar (assoc-ref %build-inputs "tar"))
(xz (assoc-ref %build-inputs "xz"))
(out (assoc-ref %outputs "out"))
(doc (assoc-ref %outputs "doc")))
(setenv "PATH" (string-append tar "/bin:" xz "/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"))
(xz #$(this-package-native-input "xz"))
(out #$output)
(doc #$output:doc))
(setenv "PATH" (string-append tar "/bin:" xz "/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)