@@ -70,4 +70,5 @@ "Create and start a new Grizzly HTTP server." [& server-args] (let [#^GrizzlyWebServer server (apply grizzly-server server-args)] - (.start server))) + (.start server) + server)) src/compojure/server/grizzly.clj @@ -102,4 +102,6 @@ (defn run-server "Create and start a new Jetty HTTP server." [& server-args] - (.start (apply jetty-server server-args))) + (let [server (apply jetty-server server-args)] + (.start server) + server)) src/compojure/server/jetty.clj 504c8fd578380e9063ec63c38aa3eeb67781bd45 Richard Newman rnewman@twinql.com http://github.com/abedra/compojure/commit/fda98248260d7d6285c0262da9ac6bfd48620254 fda98248260d7d6285c0262da9ac6bfd48620254 2009-09-03T12:58:48-07:00 2009-09-02T14:13:38-07:00 Make run-server return the server that was created. This is much simpler than forcing client code to know about the details in order to stop later... Signed-off-by: James Reeves <jreeves@weavejester.com> c8e67925e2251b2209ccf96e419cb78fb0baac04 James Reeves jreeves@weavejester.com