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


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


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