 
 (defn query-comparison-handler
   [mongo request]
-  (let [queries (json/parse-stream (InputStreamReader. (:body request)) keyword)
+  (let [queries (read-json (:body request))
         comparison (store/query-comparison mongo (:queries queries))]
     (log/info "queries" queries)
     {:status 200

        schema (protograph/graph-structure protograph)
        mongo (mongo/connect! (get config :mongo))
        routes (polaris/build-routes (ophion-routes graph search schema mongo))
        router (resource/wrap-resource (polaris/router routes) "public")
        app (-> router
                (resource/wrap-resource "public")
                (keyword/wrap-keyword-params)

;;   (Logger/ROOT_LOGGER_NAME))
;;  Level/INFO)

(defn read-json
  [body]
  (json/parse-stream (InputStreamReader. body) keyword))

(defn append-newline
  [s]
  (str s "\n"))
