* gnu/packages/guile-xyz.scm (guile-yamlpp) [arguments] <phases>:
Add 'set-extension-file-name.
Change-Id: I49a7199b4e0fe4053822374bae59c6e1d0b7ead0
---
gnu/packages/guile-xyz.scm | 13 +++++++++++++
1 file changed, 13 insertions(+)
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 30c8e847996..f43e06a3a7f 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -1997,6 +1997,19 @@ (define-public guile-yamlpp
(sha256
(base32 "0ik69y0vddg0myp0zdbkmklma0qkkrqzwlqwkij1zirklz6hl1ss"))))
(build-system gnu-build-system)
+ (arguments
+ `(#:phases
+ ,#~(modify-phases %standard-phases
+ ;; In order to let Guile find the compiled library when used with
+ ;; Guix' `with-extension', hardcode the final path to the library.
+ ;; The fallback is needed for tests (i.e. before the 'install
phase).
+ ;; See <https://issues.guix.gnu.org/74532>.
+ (add-after 'unpack 'set-extension-file-name
+ (lambda* (#:key outputs #:allow-other-keys)
+ (substitute* "scm/yamlpp.scm"
+ (("\\(load-extension \"libguile-yamlpp\"(.*)\\)" all init)
+ (format #f "(or (false-if-exception (load-extension
\"~a/lib/guile/3.0/libguile-yamlpp\"~a)) ~a)"
+ (assoc-ref outputs "out") init all))))))))
(native-inputs (list autoconf automake libtool pkg-config))
(inputs (list guile-3.0 yaml-cpp))
(native-search-paths
--
2.48.1
