From e6d4817340ec82a05e5c2b288b4e652d9f2ba2f1 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 9 Apr 2012 21:35:40 +0200
Subject: Revert to older startup procedure.

---
 src/mulk/benki/main.clj | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/mulk/benki/main.clj b/src/mulk/benki/main.clj
index edf0583..753f253 100644
--- a/src/mulk/benki/main.clj
+++ b/src/mulk/benki/main.clj
@@ -84,8 +84,6 @@
   (noir.server/add-middleware #(ring.middleware.file/wrap-file % "static"))
   (noir.server/add-middleware #(wrap-extension-mimetype %)))
 
-(defonce server (atom nil))
-
 (defn run-server []
   (let [mode         (or (:mode @benki-config) :production)
         noir-handler (noir.server/gen-handler {:mode mode})]
@@ -94,10 +92,8 @@
                                      {:port      (:web-port @benki-config)
                                       :websocket true}))))
 
-(do-once ::start
-  (doto (Thread. run-server)
-    (.setDaemon true)
-    (.start)))
+(defonce server
+  (run-server))
 
 (defn -main [& args]
   (loop []
-- 
cgit v1.2.3