03/40: gnu: tryton: Add 'bash' input for 'wrap-program'.

[guix-commits]

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

commit ef7835d16ac58ad27ed22900703cc7a3e3777fa5
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Jul 2 12:06:31 2021 +0200

    gnu: tryton: Add 'bash' input for 'wrap-program'.
    
    It is required for cross-compilation.
    
    * gnu/packages/tryton.scm (tryton): Remove trailing #t.
    [inputs]: New field.
    
    Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
    Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
    Change-Id: I9c8b7b2ad4445fe6d2f02f85c04ab3fb099aa476
---
 gnu/packages/tryton.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/tryton.scm b/gnu/packages/tryton.scm
index f5d193cc6f..7f62e2d339 100644
--- a/gnu/packages/tryton.scm
+++ b/gnu/packages/tryton.scm
@@ -23,6 +23,7 @@
 (define-module (gnu packages tryton)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages)
+  #:use-module (gnu packages bash)
   #:use-module (gnu packages check)
   #:use-module (gnu packages databases)
   #:use-module (gnu packages finance)
@@ -123,11 +124,11 @@ and security.")
              (let ((out               (assoc-ref outputs "out"))
                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
                (wrap-program (string-append out "/bin/tryton")
-                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
-             #t)))))
+                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
     (native-inputs
-     `(("glib-compile-schemas" ,glib "bin")
-       ("gobject-introspection" ,gobject-introspection)))
+     (list `(,glib "bin")
+           gobject-introspection))
+    (inputs (list bash-minimal))        ;for wrap-program
     (propagated-inputs
      (list (librsvg-for-system)
            gsettings-desktop-schemas