diff options
| -rw-r--r-- | examples/search.scm | 4 |
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 _) |