(ns shale.periodic
  (:require [shale.sessions :as sessions])
  (:use overtone.at-at))

(def thread-pool (mk-pool))

(defn schedule! []
  (every 10 #(sessions/refresh-sessions nil) thread-pool :fixed-delay true))

(defn stop! []
  (stop-and-reset-pool! thread-pool))

(ns shale.periodic
  (:require [shale.sessions :as sessions])
  (:use overtone.at-at))

(def thread-pool (mk-pool))

(defn schedule! []
  (every 200 #(sessions/refresh-sessions nil) thread-pool :fixed-delay true))

(defn stop! []
  (stop-and-reset-pool! thread-pool))

Use a more reasonable refresh delay.
Use a more reasonable refresh delay.

mhluongo/shale,cardforcoin/shale,cardforcoin/shale,mhluongo/shale