diff options
| author | Pjotr Prins | 2026-04-01 10:07:08 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2026-04-01 10:07:08 +0200 |
| commit | 12cd1e0aa3d7be1ae0e7aa2b179246851f9ebbe7 (patch) | |
| tree | 9e8da4f28a737cbba21f04b3c94a030808f5de40 | |
| parent | 507689196015e0dc3fa5b673e22903784cf9d957 (diff) | |
| download | genecup-12cd1e0aa3d7be1ae0e7aa2b179246851f9ebbe7.tar.gz | |
fix (edirect)
| -rw-r--r-- | guix.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix.scm b/guix.scm index 2a1b1c1..5530c24 100644 --- a/guix.scm +++ b/guix.scm @@ -224,7 +224,9 @@ GeneCup with four gene symbols (gria1, crhr1, drd2, and penk).") (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin")) (coreutils (assoc-ref inputs "coreutils"))) - ;; Don't wrap .sh (sourced) or .Linux (Go binaries) + ;; Only wrap scripts directly in bin/, not in + ;; subdirs (extern/ scripts are sourced, not executed). + ;; Skip .sh (sourced) and .Linux (Go binaries). (for-each (lambda (f) (wrap-program f @@ -232,7 +234,8 @@ GeneCup with four gene symbols (gria1, crhr1, drd2, and penk).") (,bin ,(string-append coreutils "/bin"))))) (filter (lambda (f) - (and (not (string-suffix? ".sh" f)) + (and (string=? (dirname f) bin) + (not (string-suffix? ".sh" f)) (not (string-suffix? ".Linux" f)))) (find-files bin))) ;; wrap-program renames xtract -> .xtract-real, but the |