Running -main now causes jetty to block, fixing a bug where lein woul…

…d prematurely call shutdown-agents for cleanup.
4clojure · Aug 31, 2011 · b6d6cca · b6d6cca
1 parent 715f849
commit b6d6cca
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/foreclojure/core.clj b/src/foreclojure/core.clj
@@ -11,6 +11,8 @@
   (:require [compojure [route :as route] [handler :as handler]]
             [sandbar.stateful-session :as session]))
 
+(def *block-server* false)
+
 (defroutes main-routes
   (GET "/" [] (welcome-page))
   login-routes
@@ -39,7 +41,8 @@
 
 (defn run []
   (prepare-mongo)
-  (run-jetty (var app) {:join? false :port 8080}))
+  (run-jetty (var app) {:join? *block-server* :port 8080}))
 
 (defn -main [& args]
-  (run))
+  (binding [*block-server* true]
+    (run)))