41/51: gnu: mypaint: Add 'bash' input for 'wrap-program'.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 49ae6049bfa0262bfa09a64ba640acade0864ac9
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Jul 2 12:13:12 2021 +0200

    gnu: mypaint: Add 'bash' input for 'wrap-program'.
    
    It is required for cross-compilation.
    
    * gnu/packages/image.scm
    (mypaint): Delete trailing #t.
    [inputs]: Add 'bash-minimal'.
    [native-inputs]: Remove labels.
    
    Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
    Change-Id: Ifb3b6bd129f9ca2d5724288622d6162db2e84746
---
 gnu/packages/image.scm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index f6e1e0cc01..4f54b4cc5f 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -2658,20 +2658,19 @@ GIF, TIFF, WEBP, BMP, PNG, XPM formats.")
                     (gtk+ (assoc-ref inputs "gtk+")))
                (wrap-program (string-append out "/bin/mypaint")
                  `("GI_TYPELIB_PATH" ":" prefix
-                   (,(getenv "GI_TYPELIB_PATH"))))
-               #t)))
+                   (,(getenv "GI_TYPELIB_PATH")))))))
          (add-before 'check 'pre-check
            (lambda _
              ;; Tests need writing access
-             (setenv "HOME" "/tmp")
-             #t)))))
+             (setenv "HOME" "/tmp"))))))
     (native-inputs
-     `(("pkg-config" ,pkg-config)
-       ("gobject-introspection" ,gobject-introspection)
-       ("swig" ,swig)
-       ("gettext" ,gettext-minimal)))
+     (list pkg-config
+           gobject-introspection
+           swig
+           gettext-minimal))
     (inputs
-     (list gtk+
+     (list bash-minimal
+           gtk+
            (librsvg-for-system)
            hicolor-icon-theme
            libmypaint