Subject: bug#29301: closed (Re: bug#29301: [PATCH] substitute* hard-coded paths with paths from "out")

From: [email-masked] (GNU bug Tracking System)
Date: Mon, 17 Jan 2022 13:19:03 +0000

Your bug report

#29301: [PATCH] substitute* hard-coded paths with paths from "out"

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
29301: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=29301
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#29301: [PATCH] substitute* hard-coded paths with paths from "out"
From: Ludovic Courtès <[email-masked]>
To: zimoun <[email-masked]>
Cc: [email-masked], Kristofer Buffington <[email-masked]>
Date: Mon, 17 Jan 2022 14:18:27 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi,

zimoun <[email-masked]> skribis:

> The patch #29301 [1] had been submitted on 2017 and…
>
> On Tue, 06 Feb 2018 at 16:13, [email-masked] (Ludovic Courtès) wrote:
>
>> Any update on this?  :-)
>
> …this last message is from 2018.  I am proposing to close.
>
>
> 1: <http://issues.guix.gnu.org/issue/29301>

Agreed, and done (it may not even apply to current Artanis).

Thanks,
Ludo’.

Subject: [PATCH] substitute* hard-coded paths with paths from "out"
From: Kristofer Buffington <[email-masked]>
To: [email-masked]
Date: Tue, 14 Nov 2017 19:41:36 -0500
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/guile.scm
used substitute* to correct some hardcoded paths in the artanis package
---
 gnu/packages/guile.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index abcefd32e..b7c2dd4c7 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -15,6 +15,7 @@
 ;;; Copyright © 2017 Mathieu Othacehe <[email-masked]>
 ;;; Copyright © 2017 Theodoros Foradis <[email-masked]>
 ;;; Copyright © 2017 ng0 <[email-masked]>
+;;; Copyright © 2017 Kristofer Buffington <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -431,7 +432,8 @@ program can be installed in one go.")
                                       post)))
                     (substitute* "artanis/artanis.scm"
                       (("[[:punct:][:space:]]+->json-string[[:punct:][:space:]]+")
-                       ""))))))
+                       ""))
+                    ))))
       (build-system gnu-build-system)
       ;; TODO: Add guile-dbi and guile-dbd optional dependencies.
       (inputs `(("guile" ,guile-2.2)
@@ -458,6 +460,14 @@ program can be installed in one go.")
                    ((" /etc/bash.bashrc") " /dev/null"))
                  (substitute* "Makefile"   ;set the root of config files to OUT
                    ((" /etc") (string-append " " out "/etc")))
+                 (substitute* "artanis/config.scm"
+                   (("/etc/artanis/artanis.conf")
+                    (string-append out "/etc/artanis.conf"))
+                   (("/etc/artanis/pages")
+                    (string-append out "/etc/artanis")))
+                 (substitute* "etc/artanis/artanis.conf"
+                   (("/etc/artanis/pages")
+                    (string-append out "/etc/artanis")))
                  (mkdir-p (string-append out "/bin")) ;for the `art' executable
                  #t)))
            (add-after 'install 'wrap-art
-- 
2.15.0
Message-ID: <[email-masked]>