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.

1 files changed, 1 insertions, 1 deletions

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*