   "POST to Keen IO."
   [collection project-id write-key request]
 
-  (def final-event-url
-    (str event-url project-id "/events/" collection))
+  (let [final-event-url
+    (str event-url project-id "/events/" collection)]
 
   (client/post final-event-url
                {:body (json/generate-string request)

                :conn-timeout 5000
                :content-type :json
                :accept :json
                :throw-entire-message? true}))

(defn keenio
  "Creates a keen adapter. Takes your Keen project id and write key, and

  event will be sent.

(streams
  (let [kio (keenio \"COLLECTION_NAME\" \"PROJECT_ID\" \"WRITE_KEY\")]
    (where (state \"error\") kio)))"

  [collection project-id, write-key]
