From e59bc14771b83d75f9e581bf19550ef078d0199f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 13 Jul 2022 02:55:49 +0530
Subject: 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.
---
 tissue/search.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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")
-- 
cgit v1.2.3