 
 (defn document-stash [stash-result]
   (-> {}
-      (->> (s/validate document-stash-result))
+      (validate document-stash-result)
       json/write-str
       response/response
       (response/status 204)


(defn query-results [results]
  (-> results
      (->> (s/validate search-results))
      json/write-str
      response/response
      (response/status 200)


(defn document [document]
  (-> document
      (validate document-result)
      json/write-str
      response/response
      (response/status 200)
