summary refs log tree commit diff
path: root/gnu/packages/search.scm
diff options
context:
space:
mode:
authorLiliana Marie Prikler <liliana.prikler@gmail.com>2022-08-06 09:53:09 +0200
committerLiliana Marie Prikler <liliana.prikler@gmail.com>2022-08-06 09:53:09 +0200
commitffea1d47cbbd76fbcd412258f11291320b14be6a (patch)
treeb50d98a38856eb65b6ff7b11e889127534a17bff /gnu/packages/search.scm
parent6665600e2354a76da1913d9847d47299e4a8f8dd (diff)
downloadguix-ffea1d47cbbd76fbcd412258f11291320b14be6a.tar.gz
gnu: ugrep: Simplify snippet.
* gnu/packages/search.scm (ugrep)[source]: Use nested for-each loop.
Simplify regular expressions.
Diffstat (limited to 'gnu/packages/search.scm')
-rw-r--r--gnu/packages/search.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/gnu/packages/search.scm b/gnu/packages/search.scm
index 025e862fa4..2d652f5789 100644
--- a/gnu/packages/search.scm
+++ b/gnu/packages/search.scm
@@ -683,11 +683,13 @@ bibliographic data and simple document and bibtex retrieval.")
                (base32 "03b3lahc3zzsznaqnrk47f1cnd5jwakvwrkz0r4m2crk09cpfv57"))
               (file-name (git-file-name name version))
               (modules '((guix build utils)))
-              (snippet #~(begin
-                           (delete-file-recursively "bin") ; pre-built executables
-                           (for-each delete-file (find-files "tests" "^archive\\..*"))
-                           (for-each delete-file (find-files "tests" "^.*\\.pdf$"))
-                           (for-each delete-file (find-files "tests" "^.*\\.class$"))))))
+              (snippet
+               #~(begin
+                   (delete-file-recursively "bin") ; pre-built executables
+                   (for-each (lambda (regexp)
+                               (for-each delete-file
+                                         (find-files "tests" regexp)))
+                             '("^archive" "\\.pdf$" "\\.class$"))))))
     (build-system gnu-build-system)
     (inputs
      (list bzip2