[bug#64527] [PATCH 1/2] gnu: bees: Update to 0.10.

[bug#64527] [PATCH 1/2] gnu: bees: Update to 0.10.

[Hilton Chain via Guix-patches via]

* gnu/packages/file-systems.scm (bees): Update to 0.10.
---
 gnu/packages/file-systems.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm
index dd84696316..0b024d6b92 100644
--- a/gnu/packages/file-systems.scm
+++ b/gnu/packages/file-systems.scm
@@ -1951,7 +1951,7 @@ (define-public fuse-overlayfs
 (define-public bees
   (package
     (name "bees")
-    (version "0.9.2")
+    (version "0.10")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -1970,7 +1970,7 @@ (define-public bees
                      (("#include .crucible/city.h.") "#include <city.h>"))))
               (sha256
                (base32
-                "0xik1xg6ma5yglhvs60ny27242iapqwzikmqbgij1avjffs6776a"))))
+                "1j1v9bxijs8gvrb7rg0q1158xjvmfc8dlzwx768fxf3w8w2gfwvz"))))
     (build-system gnu-build-system)
     (arguments
      (list #:test-target "test"

base-commit: 3db685cb2e2ce2a4b29c62d28a66201b2eba018f
-- 
2.40.1

[bug#64527] [PATCH 2/2] gnu: bees: Wrap script.

[Hilton Chain via Guix-patches via]

* gnu/packages/file-systems.scm (bees)[arguments]<#:phases>: Remove 'fixpath.
Add 'wrap.
[inputs]: Add guile-3.0.
---
 gnu/packages/file-systems.scm | 38 +++++++++++++----------------------
 1 file changed, 14 insertions(+), 24 deletions(-)

diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm
index 0b024d6b92..52c8224ec1 100644
--- a/gnu/packages/file-systems.scm
+++ b/gnu/packages/file-systems.scm
@@ -1982,31 +1982,21 @@ (define-public bees
            #:phases
            #~(modify-phases %standard-phases
                (delete 'configure)
-               (add-after 'unpack 'fixpath
+               (add-after 'install 'wrap
                  (lambda* (#:key inputs #:allow-other-keys)
-                   (substitute* "scripts/beesd.in"
-                     (((string-append "\\<(" (string-join (list "realpath"
-                                                                "uuidparse"
-                                                                "grep"
-                                                                "false"
-                                                                "sed"
-                                                                "true"
-                                                                "head"
-                                                                "mkdir"
-                                                                "mount"
-                                                                "touch"
-                                                                "du"
-                                                                "cut"
-                                                                "rm"
-                                                                "truncate"
-                                                                "chmod")
-                                                          "|") ")\\>") command)
-                      (search-input-file inputs (string-append "/bin/" command)))
-
-                     (("btrfs sub")
-                      (string-append (search-input-file inputs "/bin/btrfs")
-                                     " sub"))))))))
-    (inputs (list btrfs-progs cityhash util-linux))
+                   (wrap-script (string-append #$output "/sbin/beesd")
+                     `("PATH" suffix
+                       ,(map (lambda (program)
+                               (dirname (search-input-file
+                                         inputs (string-append "/bin/" program))))
+                             '("btrfs" "grep" "sed"
+                               ;; Provided by `util-linux`:
+                               "uuidparse"
+                               ;; Provided by `coreutils`:
+                               ;;  "chmod" "cut" "du" "false" "head" "mkdir"
+                               ;;  "mount" "realpath" "rm" "touch" "true"
+                               "truncate")))))))))
+    (inputs (list btrfs-progs cityhash guile-3.0 util-linux))
     (home-page "https://github.com/Zygo/bees")
     (synopsis "Deduplication agent for btrfs file systems")
     (description
-- 
2.40.1

[bug#64527] [PATCH 1/2] gnu: bees: Update to 0.10.

[宋文武 via Guix-patches via]

Hilton Chain <hako@ultrarare.space> writes:

> * gnu/packages/file-systems.scm (bees)[arguments]<#:phases>: Remove 'fixpath.
> Add 'wrap.
> -                   (substitute* "scripts/beesd.in"
> [...]
> +                   (wrap-script (string-append #$output "/sbin/beesd")
> [...]

Hello, does the 'substitute*' broken?  or why should we prefer
wrap-script over hardcode paths in the original executables?

Also bee was updated to 0.10 already in commit 34d7eb9721.

bug#64527: [PATCH 1/2] gnu: bees: Update to 0.10.

[Hilton Chain via Guix-patches via]

Hi,

On Tue, 18 Jul 2023 19:42:15 +0800,
宋文武 wrote:
> Hello, does the 'substitute*' broken?  or why should we prefer
> wrap-script over hardcode paths in the original executables?

Nevermind, I'm still confused about whether to make a wrapper or not.
But since it's not the preferred way (I thought it was), I'll reduce
its use in the future.

Thanks