From d852515e19ee338173c35ebdc555d83825cb835a Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Sun, 26 Dec 2021 11:26:44 +0300
Subject: [PATCH] gnu: guile-udev: Update to 0.2.1

* gnu/packages/guile-xyz.scm (guile-udev): Update to 0.2.1.
---
 gnu/packages/guile-xyz.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 8346d99996..b873e5ae08 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -1865,7 +1865,7 @@ users and in some situations.")
 (define-public guile-udev
   (package
     (name "guile-udev")
-    (version "0.2.0")
+    (version "0.2.1")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -1874,8 +1874,16 @@ users and in some situations.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "037md1sg7bgsa4478hz1dbsivsxzdnl5acadlrsh4ds2yxbsb5jp"))))
+                "1wddzisgvgxk7ldcgbhpzgprkg77w8cng3lmpppdh9x1hl71x52g"))))
     (build-system gnu-build-system)
+    (arguments
+     `(#:phases (modify-phases %standard-phases
+                  (add-after 'unpack 'patch
+                    (lambda* (#:key inputs outputs #:allow-other-keys)
+                      (substitute* "build-aux/am/snarf"
+                        (("\\$\\(shell whereis guile-snarf \\| cut -d' ' -f2\\)")
+                         (format #f "~a/bin/guile-snarf"
+                                 (assoc-ref inputs "guile")))))))))
     (native-inputs
      (list autoconf
            automake
-- 
2.25.1