01/01: gnu: gnome-dictionary: Fix install phase.

[Marius Bakke]

mbakke pushed a commit to branch staging
in repository guix.

commit 2776b5d5bf3514717cf224de34c0bf2d894f1cee
Author: Marius Bakke <address@hidden>
Date:   Mon Jul 9 23:00:29 2018 +0200

    gnu: gnome-dictionary: Fix install phase.
    
    * gnu/packages/gnome.scm (gnome-dictionary)[arguments]: Add phase to prevent
    post-install script from running.
---
 gnu/packages/gnome.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index b00076f..04259e8 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -6322,7 +6322,16 @@ fit the GNOME desktop.")
                (base32
                 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
     (build-system meson-build-system)
-    (arguments '(#:glib-or-gtk? #t))
+    (arguments '(#:glib-or-gtk? #t
+                 #:phases (modify-phases %standard-phases
+                            (add-after 'unpack 'patch-install-script
+                              (lambda _
+                                ;; This script attempts to compile glib schemas
+                                ;; and create an empty MIME database.  We do
+                                ;; that elsewhere, so prevent it from running.
+                                (substitute* "build-aux/post-install.sh"
+                                  (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
+                                #t)))))
     (native-inputs
      `(("glib:bin" ,glib "bin")
        ("gobject-introspection" ,gobject-introspection)