10/12: gnu: libepoxy: Hardcode paths to GLES libraries.

[guix-commits]

podiki pushed a commit to branch mesa-updates
in repository guix.

commit 37fc2c99e0067dfd669526c61dc10d014b89c08b
Author: 宋文武 <iyzsong@member.fsf.org>
AuthorDate: Sat Aug 19 10:59:34 2023 +0800

    gnu: libepoxy: Hardcode paths to GLES libraries.
    
    Fixes <https://issues.guix.gnu.org/64981>.
    
    * gnu/packages/gl.scm (libepoxy)[arguments]<#:phases>: Hardcode paths to
    libGLESv1_CM.so.1 and libGLESv2.so.2.
    
    Signed-off-by: John Kehayias <john.kehayias@protonmail.com>
    Change-Id: I9d68a2b8f9c4ffee13ea63ea973970bf1d4c8a6d
---
 gnu/packages/gl.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/gl.scm b/gnu/packages/gl.scm
index 8cd4f746ec..c02a6f0a84 100644
--- a/gnu/packages/gl.scm
+++ b/gnu/packages/gl.scm
@@ -754,10 +754,14 @@ OpenGL graphics API.")
       #~(modify-phases %standard-phases
           (add-before 'configure 'patch-paths
             (lambda* (#:key inputs #:allow-other-keys)
-              (let ((mesa (dirname (search-input-file inputs "lib/libGL.so"))))
+              (let ((mesa-lib
+                     (lambda (file)
+                       (search-input-file inputs (string-append "lib/" 
file)))))
                 (substitute* (find-files "." "\\.[ch]$")
-                  (("libGL.so.1") (string-append mesa "/libGL.so.1"))
-                  (("libEGL.so.1") (string-append mesa "/libEGL.so.1")))))))))
+                  (("libGL.so.1") (mesa-lib "libGL.so.1"))
+                  (("libEGL.so.1") (mesa-lib "libEGL.so.1"))
+                  (("libGLESv1_CM.so.1") (mesa-lib "libGLESv1_CM.so.1"))
+                  (("libGLESv2.so.2") (mesa-lib "libGLESv2.so.2")))))))))
     (build-system meson-build-system)
     (native-inputs
      (list pkg-config python))