guix_mirror_bot pushed a commit to branch master
in repository guix.
commit fdb799491bcaa9709f5747893eff36b3a2469f2f
Author: Nicolas Graves <[email protected]>
AuthorDate: Sun May 18 10:16:16 2025 +0200
gnu: emacs-emacsql: Improve style.
* gnu/packages/emacs-xyz.scm (emacs-emacsql):
[arguments]<phases>: Improve style of 'fix-executable-paths.
Signed-off-by: Ian Eure <[email protected]>
---
gnu/packages/emacs-xyz.scm | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 698582ee66..e102b30e1a 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -26193,12 +26193,12 @@ object has been freed.")
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-executable-paths
(lambda* (#:key inputs #:allow-other-keys)
- (let ((mdb (assoc-ref inputs "mariadb"))
- (psql (assoc-ref inputs "postgresql")))
- (emacs-substitute-variables "emacsql-psql.el"
- ("emacsql-psql-executable" (string-append psql "/bin/psql")))
- (emacs-substitute-variables "emacsql-mysql.el"
- ("emacsql-mysql-executable" (string-append mdb
"/bin/mysql")))))))))
+ (emacs-substitute-variables "emacsql-psql.el"
+ ("emacsql-psql-executable"
+ (search-input-file inputs "bin/psql")))
+ (emacs-substitute-variables "emacsql-mysql.el"
+ ("emacsql-mysql-executable"
+ (search-input-file inputs "/bin/mysql"))))))))
(inputs (list mariadb postgresql))
(native-inputs (list emacs-sqlite3-api))
(home-page "https://github.com/magit/emacsql";)
