me
/
guix
Archived
1
0
Fork 0
Code

gnu: vpnc-scripts: Set #:guile argument of 'wrap-script'. 

* gnu/packages/vpn.scm
  (vpnc-scripts)[arguments]<#:phases>{wrap-scripts}:
  Set #:guile argument of ‘wrap-script’.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Maxime Devos 2021-05-31 20:06:12 +02:00 committed by Ludovic Courtès
parent a4e38cc216
commit 3bbb0ec888
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/packages/vpn.scm
View File

@ -192,10 +192,12 @@ Only \"Universal TUN/TAP device driver support\" is needed in the kernel.")
;; Wrap scripts with paths to their common hard dependencies. ;; Wrap scripts with paths to their common hard dependencies.
;; Optional dependencies will need to be installed by the user. ;; Optional dependencies will need to be installed by the user.
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out"))
(guile (search-input-file inputs "bin/guile")))
(for-each (for-each
(lambda (script) (lambda (script)
(wrap-script (string-append out "/etc/vpnc/" script) (wrap-script (string-append out "/etc/vpnc/" script)
#:guile guile
`("PATH" ":" prefix `("PATH" ":" prefix
,(map (lambda (name) ,(map (lambda (name)
(let ((input (assoc-ref inputs name))) (let ((input (assoc-ref inputs name)))