diff options
| author | Andy Patterson <ajpatter@uwaterloo.ca> | 2017-10-15 11:47:16 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-10-25 22:26:15 -0700 |
| commit | f023685dca64e703b2663c763e7fad1e50d59f9e (patch) | |
| tree | 4b400eb8711957e1a2b0638a2945e78cee761a1a /gnu/packages/virtualization.scm | |
| parent | 60e95297297fbd67607445b601fa0245f83900f5 (diff) | |
| download | guix-f023685dca64e703b2663c763e7fad1e50d59f9e.tar.gz | |
gnu: virt-manager: Wrap with GSettings schema and GIO modules search paths.
Fixes a crash when opening the file chooser dialog. * gnu/packages/virtualization.scm (virt-manager)[arguments] <#:imported-modules>: Add (guix build glib-or-gtk-build-system). <#:modules>: Import (guix build glib-or-gtk-build-system) as glib-or-gtk:. <#:arguments>: Add 'glib-or-gtk-compile-schemas and 'glib-or-gtk-wrap. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/packages/virtualization.scm')
| -rw-r--r-- | gnu/packages/virtualization.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index c8ab607028..f99942c72d 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -509,9 +509,12 @@ virtualization library.") ;; Some of the tests seem to require network access to install virtual ;; machines. #:tests? #f + #:imported-modules ((guix build glib-or-gtk-build-system) + ,@%python-build-system-modules) #:modules ((ice-9 match) (srfi srfi-26) (guix build python-build-system) + ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) (guix build utils)) #:phases (modify-phases %standard-phases @@ -545,7 +548,11 @@ virtualization library.") `("GI_TYPELIB_PATH" ":" prefix ,(filter identity paths)))) bin-files)) - #t))))) + #t)) + (add-after 'install 'glib-or-gtk-compile-schemas + (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas)) + (add-after 'install 'glib-or-gtk-wrap + (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))))) (inputs `(("gtk+" ,gtk+) ("gtk-vnc" ,gtk-vnc) |