packages: Use a more general %patch-path definition so patched package builds works on cuirass

2024-02-20 01:50:10 -03:00 · 2024-02-20 01:50:10 -03:00 · 99b7997992
parent 21c2cdc993
commit 99b7997992
1 changed files with 7 additions and 5 deletions
--- a/modules/radix/packages.scm
+++ b/modules/radix/packages.scm
@ -1,10 +1,12 @@
 (define-module (radix packages)
+  #:use-module (gnu packages)
  #:use-module (radix combinators)
  #:export (%patch-path))

 (define %patch-path
-  (map (partial (flip string-append)
-                "/radix/packages/patches")
-       (filter (partial string-suffix? 
-                        "/guix/current/share/guile/site/3.0")
-               %load-path)))
+  (and=> (search-path %load-path "radix/packages.scm")
+         (compose list
+                  (partial (flip string-append)
+                           "/radix/packages/patches")
+                  dirname
+                  dirname)))