gnu: fennel-ls: Remove set-lua-paths phase, wrap GUIX_LUA_PATH instead of LUA_PATH.

* gnu/packages/lua.scm (fennel-ls)[arguments]<#:phases>: Remove set-lua-paths.
{wrap}: Wrap GUIX_LUA_PATH instead of LUA_PATH.

Change-Id: If0f4e86cf215f7c13acd8e3eb0d1a44fb5ecdf00
Signed-off-by: Andreas Enge <andreas@enge.fr>

1 files changed, 1 insertions, 22 deletions

diff --git a/gnu/packages/lua.scm b/gnu/packages/lua.scm
index 3a1b33369fa..b813f65a410 100644
--- a/gnu/packages/lua.scm
+++ b/gnu/packages/lua.scm
@@ -1775,17 +1775,6 @@ way, following established lisp conventions.")
             (lambda _
               (delete-file-recursively "fennel")
               (delete-file-recursively "deps/")))
-          (add-before 'build 'set-lua-path
-            (lambda _
-              (setenv "LUA_PATH"
-                      (string-join
-                       (list
-                        (string-append
-                         #$fennel "/share/lua/" luajit-major+minor "/?.lua")
-                        (string-append
-                         #$dkjson "/share/lua/" luajit-major+minor "/?.lua")
-                        "?.lua")
-                       ";"))))
           (replace 'install
             (lambda _
               (install-file "fennel-ls"
@@ -1793,17 +1782,7 @@ way, following established lisp conventions.")
           (add-after 'install 'wrap
             (lambda _
               (wrap-program (string-append #$output "/bin/fennel-ls")
-                `("LUA_PATH" ";" suffix
-                  (,(string-append
-                     #$fennel
-                     "/share/lua/"
-                     luajit-major+minor
-                     "/?.lua")
-                   ,(string-append
-                     #$dkjson
-                     "/share/lua/"
-                     luajit-major+minor
-                     "/?.lua"))))))))))
+                `("GUIX_LUA_PATH" ";" prefix (,(getenv "GUIX_LUA_PATH"))))))))))
     (inputs (list bash-minimal lua fennel pandoc dkjson))
     (synopsis "Language server for Fennel")
     (description