gnu: guix: Add guile-bytestructures to the search path.

* gnu/packages/package-management.scm (guix)[arguments]: In
'wrap-program' phase, add guile-bytestructures to the path.
master
Ludovic Courtès 2017-11-28 13:29:47 +01:00
parent 91c619ebdf
commit dd1640eed6
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 3 deletions

View File

@ -196,15 +196,17 @@
#t)) #t))
(add-after 'install 'wrap-program (add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
;; Make sure the 'guix' command finds GnuTLS and ;; Make sure the 'guix' command finds GnuTLS,
;; Guile-JSON automatically. ;; Guile-JSON, and Guile-Git automatically.
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(guile (assoc-ref inputs "guile")) (guile (assoc-ref inputs "guile"))
(json (assoc-ref inputs "guile-json")) (json (assoc-ref inputs "guile-json"))
(git (assoc-ref inputs "guile-git")) (git (assoc-ref inputs "guile-git"))
(bs (assoc-ref inputs
"guile-bytestructures"))
(ssh (assoc-ref inputs "guile-ssh")) (ssh (assoc-ref inputs "guile-ssh"))
(gnutls (assoc-ref inputs "gnutls")) (gnutls (assoc-ref inputs "gnutls"))
(deps (list json gnutls git ssh)) (deps (list json gnutls git bs ssh))
(effective (effective
(read-line (read-line
(open-pipe* OPEN_READ (open-pipe* OPEN_READ