@@ -31,10 +31,11 @@ are setup." [#^GrizzlyWebServer server url-or-path servlet] (let [[host path] (get-host-and-path url-or-path) - #^Servlet ss (cast Servlet servlet) #^ServletAdapter adapter (if (instance? ServletAdapter servlet) servlet - (ServletAdapter. ss))] + ;; Otherwise, assume it's a servlet. + (let [#^Servlet ss (cast Servlet servlet)] + (ServletAdapter. ss)))] (.addGrizzlyAdapter server adapter (into-array [path])))) (defn- #^GrizzlyWebServer create-server src/compojure/server/grizzly.clj 15d0eb55a59396f2a0e9263ab33555cd6561c458 Richard Newman rnewman@twinql.com http://github.com/abedra/compojure/commit/504c8fd578380e9063ec63c38aa3eeb67781bd45 504c8fd578380e9063ec63c38aa3eeb67781bd45 2009-09-03T12:58:42-07:00 2009-09-02T13:25:31-07:00 More type fiddling. Signed-off-by: James Reeves <jreeves@weavejester.com> f134b4a8f489b4765a8d60d8f61d27f8b48054bd James Reeves jreeves@weavejester.com