01/01: gnu: guile-email: Add phase to patch the module directory.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit c219104c7803cd31ab1cf4bef142a8fbf8ed5b7a
Author: Christopher Baines <address@hidden>
Date:   Sun Sep 15 13:31:41 2019 +0100

    gnu: guile-email: Add phase to patch the module directory.
    
    Otherwise the .go files appear within share, and Guile doesn't find them. 
With
    this patch they appear in lib within the output. One thing this means is 
that
    stack traces include the filenames.
    
    * gnu/packages/guile-xyz.scm (guile-email)[arguments]: Add 'patch-module-dir
    phase.
---
 gnu/packages/guile-xyz.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index d696792..9822cd5 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -926,7 +926,16 @@ tracker's SOAP service, such as 
@url{https://bugs.gnu.org}.";)
     (inputs
      `(("guile" ,guile-2.2)))
     (arguments
-     '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ; to prevent guild warnings
+     '(#:make-flags '("GUILE_AUTO_COMPILE=0") ; to prevent guild warnings
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'patch-module-dir
+           (lambda _
+             (substitute* "Makefile.in"
+               (("^godir = ([[:graph:]]+)")
+                "godir = \
+$(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n"))
+             #t)))))
     (home-page "https://guile-email.systemreboot.net";)
     (synopsis "Guile email parser")
     (description "guile-email is a collection of email utilities implemented