diff options
| author | Arun Isaac | 2022-07-13 02:55:49 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-07-13 02:55:49 +0530 |
| commit | e59bc14771b83d75f9e581bf19550ef078d0199f (patch) | |
| tree | a5149f32bb347d2296d972497319eac0111bcc94 | |
| parent | 553aed8550292f6bbceca0fab684c37b4affa273 (diff) | |
| download | tissue-e59bc14771b83d75f9e581bf19550ef078d0199f.tar.gz tissue-e59bc14771b83d75f9e581bf19550ef078d0199f.tar.lz tissue-e59bc14771b83d75f9e581bf19550ef078d0199f.zip | |
search: Match all on blank query, not null query.
* tissue/search.scm: Import (tissue utils).
(parse-query): Match all on blank query, not null query.
| -rw-r--r-- | tissue/search.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tissue/search.scm b/tissue/search.scm index 934b2bc..eb325a4 100644 --- a/tissue/search.scm +++ b/tissue/search.scm @@ -20,6 +20,7 @@ #:use-module (srfi srfi-1) #:use-module (tissue document) #:use-module (tissue issue) + #:use-module (tissue utils) #:use-module (xapian wrap) #:use-module ((xapian xapian) #:renamer (lambda (symbol) (case symbol @@ -31,7 +32,7 @@ (define (parse-query search-query) "Parse SEARCH-QUERY and return a xapian Query object." - (if (string-null? search-query) + (if (string-blank? search-query) (Query-MatchAll) (xapian:parse-query search-query #:stemmer (make-stem "en") |