yedi

I hereby claim:

To claim this, I am signing this object:

	;; I asked chatGPT to convert this JS code to ClojureScript
	;; https://raw.githubusercontent.com/aiortc/aiortc/main/examples/webcam/client.js

	(def pc (atom nil))

	(defn check-state [resolve]
	(fn []
	(if (= (.-iceGatheringState @pc) "complete")
	(resolve)
	(do

	sudo su - ev
	supervisorctl stop all
	cd workers/ev_workers
	git pull to whatever tag (or head in staging)
	cd ../ev_common
	git pull to whatever tag (or head in staging)
	cd ..
	supervisorctl start all

	vagrant@vagrant-ubuntu-wily-64:~/workers$ sudo rm -rf node/
	rm: cannot remove ‘node/bin’: Directory not empty
	rm: cannot remove ‘node/include’: Directory not empty
	rm: cannot remove ‘node/lib’: Directory not empty
	rm: cannot remove ‘node/share’: Directory not empty
	vagrant@vagrant-ubuntu-wily-64:~/workers$ sudo rm -R node/
	rm: cannot remove ‘node/bin’: Directory not empty
	rm: cannot remove ‘node/include’: Directory not empty
	rm: cannot remove ‘node/lib’: Directory not empty
	rm: cannot remove ‘node/share’: Directory not empty

	#Modified code
	visit_pull_times <- function (db, limit=-1, offset=-1) {
	con <- db$con
	query <- 'select visit.id, visit.time_start, visit.time_end
	from form, visit
	where form.visit_id = visit.id
	group by visit.id, visit.time_start, visit.time_end'

	with_limit <-(limit > 0)
	if (with_limit) {