From 3655b4ca24ff71a55ba119f30abba149e93cb43d Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 29 Jun 2022 00:29:28 +0530
Subject: search: Accept search query as a single string.

* tissue/search.scm (search-fold, search-map): Accept search query as
a single string instead of a list of strings.
* bin/tissue (tissue-search): Pass a single search string to
search-fold.
* tissue/web/server.scm (handler): Pass a single search string to
search-map.
---
 bin/tissue | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/tissue b/bin/tissue
index d7d4424..ce6f4f7 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -90,7 +90,7 @@ Search issues using SEARCH-QUERY.
                  (search-fold (lambda (document mset count)
                                 (print document mset)
                                 (1+ count))
-                              0 db args)))))))
+                              0 db (string-join args))))))))
 
 (define tissue-show
   (match-lambda*
-- 
cgit v1.2.3