summaryrefslogtreecommitdiff
path: root/examples/search.scm
diff options
context:
space:
mode:
authorArun Isaac2021-09-02 23:50:32 +0530
committerArun Isaac2021-09-02 23:50:32 +0530
commit78410667ab63f1e345e4a7841d0aa711fb8b6207 (patch)
tree3c11806b46334a04e83608f9637dfb8bfcdc7d04 /examples/search.scm
parent4d7eac991d41cea1645d4258c4e600b5662f070d (diff)
downloadguile-xapian-78410667ab63f1e345e4a7841d0aa711fb8b6207.tar.gz
guile-xapian-78410667ab63f1e345e4a7841d0aa711fb8b6207.tar.lz
guile-xapian-78410667ab63f1e345e4a7841d0aa711fb8b6207.zip
xapian: Fix spacing in association list.
* examples/search.scm (search): Add a space after '.' in the prefixes association list.
Diffstat (limited to 'examples/search.scm')
-rw-r--r--examples/search.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/search.scm b/examples/search.scm
index e8f8aa5..eef075f 100644
--- a/examples/search.scm
+++ b/examples/search.scm
@@ -1,5 +1,5 @@
;;; guile-xapian --- Guile bindings for Xapian
-;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2020, 2021 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of guile-xapian.
;;;
@@ -34,7 +34,7 @@
;; prefixes for field search.
(query (parse-query querystring
#:stemmer (make-stem "en")
- #:prefixes '(("title" ."S")
+ #:prefixes '(("title" . "S")
("description" . "XD")))))
;; Fold over the results, printing them.
(mset-fold (lambda (item _)