Fixed bug that caused the index to be overwritten on each add

weavejester · Mar 26, 2010 · aa9fb2d · aa9fb2d
1 parent 565cf7d
commit aa9fb2d
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/clucy/core.clj b/src/clucy/core.clj
@@ -26,7 +26,7 @@
 (defn- index-writer
   "Create an IndexWriter."
   [index]
-  (IndexWriter. index *analyzer* true IndexWriter$MaxFieldLength/UNLIMITED))
+  (IndexWriter. index *analyzer* IndexWriter$MaxFieldLength/UNLIMITED))
 
 (defn- add-field
   "Add a Field to a Document."
@@ -55,7 +55,8 @@
   [index & maps]
   (with-open [writer (index-writer index)]
     (doseq [m maps]
-      (.addDocument writer (map->document m)))))
+      (.addDocument writer (map->document m)))
+    (.optimize writer)))
 
 (defn- document->map
   "Turn a Document object into a map."