Subject: [bug#56191] [PATCH] gnu: guile-8sync: Update to 0.4.2-0.183b4f0.

From: Z572 <[email-masked]>
Date: Fri, 24 Jun 2022 21:48:43 +0800

>From a2aa4195d38fde080415afd120881d90d34927ac Mon Sep 17 00:00:00 2001
Message-Id: <a[email-masked]>
From: Z572 <[email-masked]>
Date: Fri, 24 Jun 2022 21:34:18 +0800
Subject: [PATCH 1/2] gnu: guile-8sync: Update to 0.4.2-0.183b4f0.

* gnu/packages/guile-xyz.scm (guile-8sync): Update to 0.4.2-0.183b4f0.
[source]: use git source.
[native-inputs]: replace guile-2.2 with guile-3.0.
[description]: remove some tips.
<#:phases>: remove it.
<#:make-flags>: set GUILE_AUTO_COMPILE in it.
---
 gnu/packages/guile-xyz.scm | 53 ++++++++++++++++++--------------------
 1 file changed, 25 insertions(+), 28 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 2ed6617fd2..69cd569a2c 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -496,34 +496,31 @@ (define-public guile-bash
        ,@(package-arguments guile2.0-bash)))))
 
 (define-public guile-8sync
-  (package
-    (name "guile-8sync")
-    (version "0.4.2")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "mirror://gnu/8sync/8sync-" version
-                                  ".tar.gz"))
-              (sha256
-               (base32
-                "031wm13srak3wsnll7j2mbbi29g1pcm4swdb71ds9yn567pn20qw"))))
-    (build-system gnu-build-system)
-    (native-inputs (list autoconf automake guile-2.2 pkg-config texinfo))
-    (arguments
-     `(#:phases (modify-phases %standard-phases
-                  (add-before 'configure 'setenv
-                    (lambda _
-                      ;; quiet warnings
-                      (setenv "GUILE_AUTO_COMPILE" "0")
-                      #t)))))
-    (home-page "https://gnu.org/s/8sync/")
-    (synopsis "Asynchronous actor model library for Guile")
-    (description
-     "GNU 8sync (pronounced \"eight-sync\") is an asynchronous programming
-library for GNU Guile based on the actor model.
-
-Note that 8sync is only available for Guile 2.2.")
-    (properties '((upstream-name . "8sync")))
-    (license license:lgpl3+)))
+  (let ((commit "183b4f02e68279d4984e79b79e06bfcf1861fcbf") (revision "0"))
+    (package
+      (name "guile-8sync")
+      (version (git-version "0.4.2" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (commit commit)
+                      (url "https://git.savannah.gnu.org/git/8sync.git")))
+                (sha256
+                 (base32
+                  "0r22kxasv1zqnf1ykzyx6c226qxn1wgjb1gc54526bid24x508ij"))
+                (file-name (git-file-name name version))))
+      (build-system gnu-build-system)
+      (native-inputs (list autoconf automake guile-3.0 pkg-config texinfo))
+      (arguments
+       (list #:make-flags
+             #~(list "GUILE_AUTO_COMPILE=0")))
+      (home-page "https://gnu.org/s/8sync/")
+      (synopsis "Asynchronous actor model library for Guile")
+      (description
+       "GNU 8sync (pronounced \"eight-sync\") is an asynchronous programming
+library for GNU Guile based on the actor model.")
+      (properties '((upstream-name . "8sync")))
+      (license license:lgpl3+))))
 
 (define-public guile-daemon
   (package
-- 
2.36.1

>From 90a5f19ff4591c3172eec6a9293bce46c121f2d4 Mon Sep 17 00:00:00 2001
Message-Id: <9[email-masked]>
In-Reply-To: <a[email-masked]>
References: <a[email-masked]>
From: Z572 <[email-masked]>
Date: Fri, 24 Jun 2022 21:45:19 +0800
Subject: [PATCH 2/2] gnu: Add guile2.2-8sync.

* gnu/packages/guile-xyz.scm (guile2.2-8sync): New variable.
---
 gnu/packages/guile-xyz.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 69cd569a2c..88535db38d 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -522,6 +522,21 @@ (define-public guile-8sync
       (properties '((upstream-name . "8sync")))
       (license license:lgpl3+))))
 
+(define-public guile2.2-8sync
+  (package
+    (inherit guile-8sync)
+    (name "guile2.2-8sync")
+    (version "0.4.2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/8sync/8sync-" version
+                                  ".tar.gz"))
+              (sha256
+               (base32
+                "031wm13srak3wsnll7j2mbbi29g1pcm4swdb71ds9yn567pn20qw"))))
+    (native-inputs (modify-inputs (package-native-inputs guile-8sync)
+                     (replace "guile" guile-2.2)))))
+
 (define-public guile-daemon
   (package
     (name "guile-daemon")
-- 
2.36.1

-- 
over