diff options
Diffstat (limited to 'gnu/packages/image-processing.scm')
| -rw-r--r-- | gnu/packages/image-processing.scm | 22 |
1 files changed, 7 insertions, 15 deletions
diff --git a/gnu/packages/image-processing.scm b/gnu/packages/image-processing.scm index c354c32bff9..f8b924ad7a3 100644 --- a/gnu/packages/image-processing.scm +++ b/gnu/packages/image-processing.scm | |||
| @@ -600,24 +600,16 @@ different data arrays similar to those available in the numdiff software.") | |||
| 600 | (file-name (git-file-name name version)) | 600 | (file-name (git-file-name name version)) |
| 601 | (snippet | 601 | (snippet |
| 602 | #~(begin | 602 | #~(begin |
| 603 | (use-modules (guix build utils) | 603 | (use-modules (guix build utils)) |
| 604 | (ice-9 ftw) | ||
| 605 | (srfi srfi-26)) | ||
| 606 | ;; Delete any bundled .jar files. | 604 | ;; Delete any bundled .jar files. |
| 607 | (for-each delete-file (find-files "." "\\.jar$")) | 605 | (for-each delete-file (find-files "." "\\.jar$")) |
| 608 | (define (delete-all-but directory . preserve) | ||
| 609 | (with-directory-excursion directory | ||
| 610 | (let* ((pred (negate (cut member <> | ||
| 611 | (cons* "." ".." preserve)))) | ||
| 612 | (items (scandir "." pred))) | ||
| 613 | (for-each (cut delete-file-recursively <>) items)))) | ||
| 614 | (delete-all-but "3rdparty" | 606 | (delete-all-but "3rdparty" |
| 615 | "fastcv" ;TODO: Unbundle these | 607 | "fastcv" ;TODO: Unbundle these |
| 616 | "libspng" | 608 | "libspng" |
| 617 | "libtim-vx" | 609 | "libtim-vx" |
| 618 | "orbbecsdk" | 610 | "orbbecsdk" |
| 619 | "quirc" | 611 | "quirc" |
| 620 | "zlib-ng"))) | 612 | "zlib-ng"))) |
| 621 | (sha256 | 613 | (sha256 |
| 622 | (base32 | 614 | (base32 |
| 623 | "15w4fqjqv5k1yw70jbjsnlgiky39mqpy05rvmm2fbyjrif4kbgkl")))) | 615 | "15w4fqjqv5k1yw70jbjsnlgiky39mqpy05rvmm2fbyjrif4kbgkl")))) |