Clojure reset server

resetserver.clj

(ns no2day.core
  (:use [compojure.core :only [defroutes GET]]
         ring.util.response
         ring.middleware.cors)
  (:require [org.httpkit.server :as http-kit]
            [ring.middleware.reload :as reload]
            [compojure.handler :as handler]
            [clojure.tools.logging :as log]
            [clj-wamp.server :as wamp]))

(defonce server (atom nil))

(defn stop-server []
  (when-not (nil? @server)
    (@server :timeout 100)
    (reset! server nil)))

(def app (-> (handler/site routes)
                     reload/wrap-reload
                     (wrap-cors
                      :access-control-allow-origin #".+")))

(reset! server (http-kit/run-server app {:port 8010 :join? false}))