From 2bf6a370206157a729571a8e0ee0e2622887d789 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 15 Jan 2023 23:48:13 +0100
Subject: [PATCH] gnu: guile-avahi: Update to 0.4.1.

* gnu/packages/guile-xyz.scm (guile-avahi): Update to 0.4.1.
[arguments]: Remove.
---
 gnu/packages/guile-xyz.scm | 73 ++++++++++++--------------------------
 1 file changed, 22 insertions(+), 51 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index d5b4fdb4d5..648b66f423 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -4693,60 +4693,31 @@ (define files
     (license license:expat)))
 
 (define-public guile-avahi
-  (let ((commit "6d43caf64f672a9694bf6c98bbf7a734f17a51e8")
-        (revision "1"))
-    (package
-      (name "guile-avahi")
-      (version (git-version "0.4.0" revision commit))
-      (source (origin
-                (method git-fetch)
-                (uri (git-reference
-                      (url "git://git.sv.gnu.org/guile-avahi.git")
-                      (commit commit)))
-                (file-name (git-file-name name version))
-                (sha256
-                 (base32
-                  "0fvrf8x22yvc71180hd3xkhspg9yvadi0pbv8shzlsaxqncwy1m9"))
-                (modules '((guix build utils)))))
-      (build-system gnu-build-system)
-      (arguments
-       `(#:modules (((guix build guile-build-system)
-                     #:select (target-guile-effective-version))
-                    ,@%gnu-build-system-modules)
-         #:imported-modules ((guix build guile-build-system)
-                             ,@%gnu-build-system-modules)
-         #:make-flags
-         '("GUILE_AUTO_COMPILE=0")    ;to prevent guild warnings
-         ;; Parallel builds fail on powerpc64le-linux.
-         ;; See https://lists.nongnu.org/archive/html/guile-avahi-bugs/2021-01/msg00000.html
-         #:parallel-build? #f
-         #:phases
-         (modify-phases %standard-phases
-           (add-before 'check 'fix-guile-avahi-file-name
-           (lambda* (#:key outputs #:allow-other-keys)
-             (with-directory-excursion "src"
-               (invoke "make" "install"
-                       "-j" (number->string
-                             (parallel-job-count))))
-             (let* ((out   (assoc-ref outputs "out"))
-                    (files (find-files "modules" ".scm")))
-               (substitute* files
-                 (("\"guile-avahi-v-0\"")
-                  (format #f "\"~a/lib/guile/~a/extensions/guile-avahi-v-0\""
-                          out (target-guile-effective-version))))
-               #t))))))
-      (inputs
-       (list guile-3.0 avahi))
-      (native-inputs
-       (list autoconf automake libtool pkg-config texinfo guile-3.0))
-      (synopsis "Guile bindings to Avahi")
-      (description
-       "This package provides bindings for Avahi.  It allows programmers to
+  (package
+    (name "guile-avahi")
+    (version "0.4.1")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://git.sv.gnu.org/git/guile-avahi.git/")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0pxdi13kr4ylpms0xyf3xwwbhg025k7a2liwnbha1gw6ls58xgv2"))))
+    (build-system gnu-build-system)
+    (inputs
+     (list guile-3.0 avahi))
+    (native-inputs
+     (list autoconf automake libtool pkg-config texinfo guile-3.0))
+    (synopsis "Guile bindings to Avahi")
+    (description
+     "This package provides bindings for Avahi.  It allows programmers to
 use functionalities of the Avahi client library from Guile Scheme programs.
 Avahi itself is an implementation of multicast DNS (mDNS) and DNS Service
 Discovery (DNS-SD).")
-      (home-page "https://www.nongnu.org/guile-avahi/")
-      (license license:lgpl3+))))
+    (home-page "https://www.nongnu.org/guile-avahi/")
+    (license license:lgpl3+)))
 
 (define-public guile-dns
   (package