From bf6fcf547719117a37de6bd62de55f5901c0e831 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 1 Apr 2014 23:57:44 +0200
Subject: [PATCH] gnu: guile-json: Install under .../site/2.0.

* gnu/packages/guile.scm (guile-json)[source]: Add 'snippet'.
---
 gnu/packages/guile.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 5132a117a8..a240937f75 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -336,7 +336,14 @@ for Guile\".")
                                  version ".tar.gz"))
              (sha256
               (base32
-               "0nz2sx61kd6cfflwzxxq0cb9dz0asb81abbhfawv4p9ghciqdr3g"))))
+               "0nz2sx61kd6cfflwzxxq0cb9dz0asb81abbhfawv4p9ghciqdr3g"))
+             (modules '((guix build utils)))
+             (snippet
+              ;; Make sure everything goes under .../site/2.0, like Guile's
+              ;; search paths expects.
+              '(substitute* '("Makefile.in" "json/Makefile.in")
+                 (("moddir =.*/share/guile/site" all)
+                  (string-append all "/2.0"))))))
     (build-system gnu-build-system)
     (inputs `(("guile" ,guile-2.0)))
     (home-page "http://savannah.nongnu.org/projects/guile-json/")