01/19: build-system: node: Use `--install-links' with `npm install'.

[guix-commits]

jlicht pushed a commit to branch master
in repository guix.

commit d8ce5e3297ac433eeda7a893b42ab9cb4a5abb7c
Author: Jelle Licht <jlicht@fsfe.org>
AuthorDate: Wed Mar 15 01:33:03 2023 +0100

    build-system: node: Use `--install-links' with `npm install'.
    
    Later versions of npm need to explicitly install a copy of local 
dependencies,
    instead of only a symlink.
    
    * guix/build/node-build-system.scm (configure): Add `--install-links' to npm
    install invocation.
    (install): Ditto.
---
 guix/build/node-build-system.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/build/node-build-system.scm b/guix/build/node-build-system.scm
index bee3792e93..93f7efbb2b 100644
--- a/guix/build/node-build-system.scm
+++ b/guix/build/node-build-system.scm
@@ -223,7 +223,7 @@ exist."
 
 (define* (configure #:key outputs inputs #:allow-other-keys)
   (let ((npm (string-append (assoc-ref inputs "node") "/bin/npm")))
-    (invoke npm "--offline" "--ignore-scripts" "install")
+    (invoke npm "--offline" "--ignore-scripts" "--install-links" "install")
     #t))
 
 (define* (build #:key inputs #:allow-other-keys)
@@ -262,6 +262,7 @@ exist."
             "--offline"
             "--loglevel" "info"
             "--production"
+            "--install-links"
             "install" "../package.tgz")
     #t))