        (name newest)
        (create-timestamped-index conn (format "%s-" idx) body)))))
 
+(defn truncate-message [{:keys [message] :as doc}]
+  (let [bytes (.getBytes message "UTF-8")
+        truncated (if (> (count bytes) MAX_TERM_LENGTH)
+                    (String. (byte-array (take MAX_TERM_LENGTH bytes))
+                             "UTF-8")
+                    message)]
+    (merge doc {:message truncated})))
+
 (s/defn create-build-doc :- StoredBuild
   [opts result test-report]
   (merge

                                     :message
                                     :summary])]
              (update (:report test-report)
                      :failed-testcases #(map f %))))}))

(s/defn save-build!
  [opts


(def MAX_INDEX_BYTES (* 1024 1024 1024))

(def MAX_TERM_LENGTH 32766)

(defn make-connection
  [{:keys [url http-opts] :as args}]
  (http/make args))
