 
 
     (log/info "Starting the server - here I go!")
-    (log/spy (map #(assoc % :a 1) [{:b 2} {:c 3} {:d 4}]))
     (init-cass {:nodes (:nodes options)
                 :port (:cass-port options)})
     (log/info "Cassandra has been initialized. Now to give the routes to ring")
-    (run-server root-handler {:port (:port options)})))
+    (run-server root-handler {:port (:port options)
+                              :thread 20
+                              :worker-name-prefix "httpkit-"})))
 
 
 

  ([options]
   (log/info "Initializing connections to cassandra")
   (let [cluster (alia/cluster {:contact-points (get options :nodes ["localhost"])
                                :port (get options :port 9042)})
         session (alia/connect cluster)]

     (alia/execute session (use-keyspace "DATA"))

     (reset! cass-state
             {:cluster cluster

   (cass-execute query {}))
  ([query opts]
   (let [opts (merge {:consistency :one} opts)]
     (alia/execute-async (:session @cass-state) query opts))))

(defn cass-prepared-insert [& data]
  ;(log/info "Inserting the following data: " data)
  (cass-execute (:prepared-insert @cass-state) {:values data}))

(defn init-cass
