Doc strings

clojurewerkz · Apr 2, 2012 · 62310f3 · 62310f3
1 parent 567b3cb
commit 62310f3
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/clojurewerkz/elastisch/rest.clj b/src/clojurewerkz/elastisch/rest.clj
@@ -108,12 +108,17 @@
      (join slash [(base) index-name index-type "_refresh"])))
 
 
+;;
+;; API
+;;
+
 (defn connect
+  "Connects with ElasticSearch endpoint and performs discovery"
   [uri]
   (let [response (get uri)]
-    (ElasticSearchEndpoint. uri
-                            (:number (:version response)))))
+    (ElasticSearchEndpoint. uri (get-in response [:version :number]))))
 
 (defn connect!
+  "Alters default ElasticSearch connection endpoint"
   [uri]
   (alter-var-root (var *endpoint*) (constantly (connect uri))))