[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/10: gnu: guile-dbi: Remove hard-coded guile effective version.
From: |
guix-commits |
Subject: |
02/10: gnu: guile-dbi: Remove hard-coded guile effective version. |
Date: |
Sun, 3 Oct 2021 10:19:51 -0400 (EDT) |
arunisaac pushed a commit to branch master
in repository guix.
commit caa4f7cd786c89d7c0589171f9464ce433a97240
Author: Arun Isaac <arunisaac@systemreboot.net>
AuthorDate: Wed Sep 8 16:11:35 2021 +0530
gnu: guile-dbi: Remove hard-coded guile effective version.
* gnu/packages/guile-xyz.scm (guile-dbi)[arguments]: Import
target-guile-effective-version from (guix build guile-build-system). Use
target-guile-effective-version to determine the guile effective version.
---
gnu/packages/guile-xyz.scm | 22 +++++++++++++++-------
1 file changed, 15 insertions(+), 7 deletions(-)
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 8bde68d..5ce503e 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -1530,9 +1530,15 @@ library}.")
"0nswd067gvpy9pnig409ympkw29akh9lb2i6g3w7r18g1s0ivah2"))))
(build-system gnu-build-system)
(arguments
- '(#:configure-flags
+ `(#:modules (((guix build guile-build-system)
+ #:select (target-guile-effective-version))
+ ,@%gnu-build-system-modules)
+ #:imported-modules ((guix build guile-build-system)
+ ,@%gnu-build-system-modules)
+ #:configure-flags
(list (string-append
- "--with-guile-site-dir=" %output "/share/guile/site/2.2"))
+ "--with-guile-site-dir=" %output "/share/guile/site/"
+ (target-guile-effective-version (assoc-ref %build-inputs
"guile"))))
#:make-flags
(list (string-append
"LDFLAGS=-Wl,-rpath=" %output "/lib:"
@@ -1541,11 +1547,13 @@ library}.")
#:phases
(modify-phases %standard-phases
(add-after 'install 'patch-extension-path
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (dbi.scm (string-append
- out "/share/guile/site/2.2/dbi/dbi.scm"))
- (ext (string-append out "/lib/libguile-dbi")))
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (dbi.scm (string-append out "/share/guile/site/"
+ (target-guile-effective-version
+ (assoc-ref inputs "guile"))
+ "/dbi/dbi.scm"))
+ (ext (string-append out "/lib/libguile-dbi")))
(substitute* dbi.scm (("libguile-dbi") ext))
#t))))))
(inputs
- branch master updated (7d59858 -> c98c9c5), guix-commits, 2021/10/03
- 05/10: gnu: guile-dbi: Update to 2.1.8., guix-commits, 2021/10/03
- 04/10: gnu: guile-dbi: Do not return #t from custom phases., guix-commits, 2021/10/03
- 03/10: gnu: guile-dbi: Search for dbd libraries using native-search-paths., guix-commits, 2021/10/03
- 10/10: gnu: guile-dbd-sqlite3: Use normal variable instead of @ reference., guix-commits, 2021/10/03
- 08/10: gnu: guile-dbi-bootstrap: Remove package., guix-commits, 2021/10/03
- 02/10: gnu: guile-dbi: Remove hard-coded guile effective version.,
guix-commits <=
- 01/10: gnu: guile-dbi: Update upstream source., guix-commits, 2021/10/03
- 06/10: gnu: guile-dbd-sqlite3: Inherit from guile-dbi., guix-commits, 2021/10/03
- 09/10: gnu: Add guile-dbd-mysql., guix-commits, 2021/10/03
- 07/10: gnu: guile-dbd-postgresql: Inherit from guile-dbi., guix-commits, 2021/10/03