web: server: Pass state directory to web server.

* tissue/web/server.scm: Import (git) and (tissue git).
(handler, start-web-server): Accept path to state directory instead of
to the xapian index.
* bin/tissue (tissue-run-web): Pass state directory to
start-web-server.

1 files changed, 1 insertions, 1 deletions

diff --git a/bin/tissue b/bin/tissue
index 9f26992..789cdb8 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -263,7 +263,7 @@ Run a web search service reading configuration from CONFIG-FILE.
                                   ;; Assume current directory as default.
                                   `(("localhost"
                                      (indexed-repository . ,(getcwd))))))
-                         %xapian-index)))))
+                         (assq-ref args 'state-directory))))))
 
 ;; This is a noop, since the index is built on any tissue command. It
 ;; exists just for the --help usage summary.