~ruther/guix-local: gnu: ansel: Fix OpenCL support.

1b9b108feaedce81d8b20e499491513e5e57915b — John Kehayias 8 months ago 56dfaa6

gnu: ansel: Fix OpenCL support.

* gnu/packages/photo.scm (ansel)[arguments]<#:configure-flags>: Adjust
indentation.
<#:phases>: Add libOpenCL-path phase (from darktable package).

Change-Id: I678bc8a66a281bb8674d40d4caa44f5a18b55ae3

patch browse .tar.gz

1 files changed, 13 insertions(+), 3 deletions(-)

M gnu/packages/photo.scm

M gnu/packages/photo.scm => gnu/packages/photo.scm +13 -3

@@ 703,9 703,19 @@ and enhance them.")
        (list
         #:tests? #f ;Tests are only examples
         #:configure-flags
-          #~(list "-DUSE_BUNDLED_LIBRAW=OFF"
-                  "-DBINARY_PACKAGE_BUILD=ON")
-        #:build-type "Release")) ;Rawspeed fails on default 'RelWithDebInfo'
+        #~(list "-DUSE_BUNDLED_LIBRAW=OFF"
+                "-DBINARY_PACKAGE_BUILD=ON")
+        #:build-type "Release" ;Rawspeed fails on default 'RelWithDebInfo'
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-after 'unpack 'libOpenCL-path
+              (lambda* (#:key inputs #:allow-other-keys)
+                ;; Statically link to libOpenCL.
+                (substitute* "./src/common/dlopencl.c"
+                  (("\"libOpenCL\"")
+                   (string-append "\""
+                                  (search-input-file inputs "/lib/libOpenCL.so")
+                                  "\""))))))))
       (native-inputs
        (list cmocka
              desktop-file-utils