Last email had old version of patch, please use this one. Sorry paren
for using cc instead of reply-to.
* gnu/packages/search.scm (ugrep)[snippets]: Use gexps. Remove trailing #t.
gnu/packages/search.scm | 33 +++++++++++++++++----------------
1 file changed, 17 insertions(+), 16 deletions(-)
Toggle diff (64 lines)
diff --git a/gnu/packages/search.scm b/gnu/packages/search.scm
index db5579a708..65a642c259 100644
--- a/gnu/packages/search.scm
+++ b/gnu/packages/search.scm
@@ -32,6 +32,7 @@ (define-module (gnu packages search)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
+ #:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
@@ -681,14 +682,12 @@ (define-public ugrep
(base32 "03b3lahc3zzsznaqnrk47f1cnd5jwakvwrkz0r4m2crk09cpfv57"))
(file-name (git-file-name name version))
- (modules '((guix build utils)))
+ (use-modules (guix build utils))
(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$"))
+ (for-each delete-file (find-files "tests" "^.*\\.class$"))))))
(build-system gnu-build-system)
@@ -696,18 +695,20 @@ (define-public ugrep
- `(#:tests? #f ; no way to rebuild the binary input files
- (modify-phases %standard-phases
- (add-before 'check 'check-setup
- ;; Unpatch shebangs in tests.
- (substitute* '("tests/Hello.bat"
- (("#!/gnu/store/.*/bin/sh") "#!/bin/sh")))))))
+ #:tests? #f ; no way to rebuild the binary input files
+ #~(modify-phases %standard-phases
+ (add-before 'check 'check-setup
+ ;; Unpatch shebangs in tests.
+ (substitute* '("tests/Hello.bat"
+ (("#!/gnu/store/.*/bin/sh") "#!/bin/sh")))))))
(home-page "https://github.com/Genivia/ugrep/")
(synopsis "Faster grep with an interactive query UI")
(description "Ugrep is a ultra fast searcher of file systems, text