From bed9103579686b1cc991ee4f955c2bc5067299d0 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Mon, 18 Dec 2023 23:49:27 -0500
Subject: gnu: guile-udev: Fix dlopen error at run time.

* gnu/packages/guile-xyz.scm (guile-udev)
[arguments]: Add patch-extension-path phase.

Change-Id: I4620c234e8ac45dcc1c2a3ab8871b8ab9d9c35c0
---
 gnu/packages/guile-xyz.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'gnu/packages/guile-xyz.scm')

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 2a6bd8071d..7b44dc3167 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -16,7 +16,7 @@
 ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
 ;;; Copyright © 2017 Nikita <nikita@n0.is>
 ;;; Copyright © 2017, 2018, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2018, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2018, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Arun Isaac <arunisaac@systemreboot.net>
 ;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
 ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
@@ -2278,6 +2278,18 @@ users and in some situations.")
                (base32
                 "1q1snj8gz2bvqw2v2jvwlzn5xfh7f7wlp922isnzismrp4adc918"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-extension-path
+            (lambda _
+              ;; Provide the absolute path of the guile-libudev extension to
+              ;; ensure the dlopen call always succeeds.
+              (substitute* (find-files "." "\\.scm")
+                (("load-extension \"libguile-udev\"")
+                 (format #f "load-extension \"~a/lib/libguile-udev.so\""
+                         #$output))))))))
     (native-inputs (list autoconf
                          automake
                          gettext-minimal
-- 
cgit v1.2.3

494d62e9fb836c07e516a9'>root</a>/<a href='/guix/log/gnu?id=7bd24f5bd1ff61a7dc494d62e9fb836c07e516a9'>gnu</a>/<a href='/guix/log/gnu/machine?id=7bd24f5bd1ff61a7dc494d62e9fb836c07e516a9'>machine</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/machine?id=7bd24f5bd1ff61a7dc494d62e9fb836c07e516a9&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-03-01 10:30:17 -0500'>2022-03-01</span></td><td><a href='/guix/commit/gnu/machine?id=0dc019e19a23fea614be5623360849ab9bc35e74'>initrd: Use non-hyphenated kernel command-line parameter names.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-01-16 23:56:55 +0100'>2022-01-16</span></td><td><a href='/guix/commit/gnu/machine?id=084b76a70a6b302529f3450e6d07f1d105a10f7d'>machine: ssh: Add 'safety-checks?' field.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-09 23:17:17 +0100'>2022-01-09</span></td><td><a href='/guix/commit/gnu/machine?id=7f20e59a13a6acc3331e04185b8f1ed2538dcd0a'>machine: ssh: Open a single SSH session per machine.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-08-29 01:05:26 -0400'>2021-08-29</span></td><td><a href='/guix/commit/gnu/machine?id=da4e40948326387d5bcda58783914d5f9ce8b095'>Migrate to the new 'targets' field of bootloader-configuration.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-06-20 16:44:08 +0200'>2021-06-20</span></td><td><a href='/guix/commit/gnu/machine?id=ef3f38ea0027f48feb6a29df131ac58bfbb46b7d'>services: openssh: Replace 'without-password' by 'prohibit-password'.</a><span class='msg-avail'>...</span></td><td>Brice Waegeneire</td></tr>
<tr><td><span title='2021-06-03 13:04:20 +0200'>2021-06-03</span></td><td><a href='/guix/commit/gnu/machine?id=fe509e017fa1c0e3d0b057784b081def3aa621ad'>machine: ssh: Respect calling convention for monadic procedures.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-06-01 23:26:07 +0200'>2021-06-01</span></td><td><a href='/guix/commit/gnu/machine?id=2885c3568edec35086f8feeae5b60259cbea407c'>machine: ssh: Gracefully handle failure of the effectful bits.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-02-25 11:29:35 +0100'>2021-02-25</span></td><td><a href='/guix/commit/gnu/machine?id=120051e1b9358f75b228e97670843095d5fcdf49'>machine: ssh: Use 'formatted-message'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>