gnu: duplicity: Use ‘search-input-file’.

* gnu/packages/backup.scm (duplicity)[arguments]: In
‘use-store-file-names’ phase, use ‘search-input-file’.

Change-Id: I4b66a22283fc6e426377ad9f4f4c451598eb74e0
This commit is contained in:
Ludovic Courtès 2023-11-22 16:15:16 +01:00
parent f7995b6644
commit ad40a5d0e2
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -146,12 +146,14 @@ (define-public duplicity
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "duplicity/gpginterface.py" (substitute* "duplicity/gpginterface.py"
(("self.call = u'gpg'") (("self.call = u'gpg'")
(string-append "self.call = '" (assoc-ref inputs "gnupg") "/bin/gpg'"))) (string-append "self.call = '"
(search-input-file inputs "/bin/gpg")
"'")))
(substitute* "duplicity/backends/giobackend.py" (substitute* "duplicity/backends/giobackend.py"
(("subprocess.Popen\\(\\[u'dbus-launch'\\]") (("subprocess.Popen\\(\\[u'dbus-launch'\\]")
(string-append "subprocess.Popen([u'" (string-append "subprocess.Popen([u'"
(assoc-ref inputs "dbus") (search-input-file inputs "/bin/dbus-launch")
"/bin/dbus-launch']"))) "']")))
(substitute* '("testing/functional/__init__.py" (substitute* '("testing/functional/__init__.py"
"testing/overrides/bin/lftp") "testing/overrides/bin/lftp")
(("/bin/sh") (which "sh"))))) (("/bin/sh") (which "sh")))))