02/02: gnu: sugar-datastore: Patch reference to md5sum.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit a4fca7884c3ca90d85302d5583485a2a2056150d
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sun Mar 5 00:14:04 2023 +0100

    gnu: sugar-datastore: Patch reference to md5sum.
    
    * gnu/packages/sugar.scm (sugar-datastore)[inputs]: Add coreutils.
    [arguments]: Rename phase 'patch-reference-to-du to 'patch-tool-references 
and
    patch reference to md5sum.
---
 gnu/packages/sugar.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/sugar.scm b/gnu/packages/sugar.scm
index 892ccf246f..4ebdd22077 100644
--- a/gnu/packages/sugar.scm
+++ b/gnu/packages/sugar.scm
@@ -262,10 +262,15 @@ activities and other Sugar components.")
              (substitute* "autogen.sh"
                (("^\"\\$srcdir/configure" m)
                 (string-append "#" m)))))
-         (add-after 'unpack 'patch-reference-to-du
-           (lambda _
+         (add-after 'unpack 'patch-tool-references
+           (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "src/carquinyol/datastore.py"
-               (("/usr/bin/du") (which "du")))))
+               (("/usr/bin/du") (which "du")))
+             (substitute* "src/carquinyol/optimizer.py"
+               (("'md5sum'")
+                (string-append "'"
+                               (search-input-file inputs "/bin/md5sum")
+                               "'")))))
          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (for-each
@@ -279,6 +284,7 @@ activities and other Sugar components.")
                     (search-input-file outputs "bin/datastore-service"))))))))
     (inputs
      (list bash-minimal
+           coreutils
            python
            sugar-toolkit-gtk3))
     (propagated-inputs