avoid reflection

Author: MichaelBlume

src/compojure/api/middleware.clj

@@ -76,7 +76,7 @@
         (assoc-in [:meta :produces] (map mime-types response-formats))
         handler)))
 
-(defn handle-req-error [e handler req]
+(defn handle-req-error [^Throwable e handler req]
   (cond
     (instance? JsonParseException e)
     (bad-request {:type "json-parse-exception"

src/compojure/api/swagger.clj

@@ -103,7 +103,7 @@
 (defn strip-trailing-spaces [s] (st/replace-first s #"(.)\/+$" "$1"))
 
 (defn create-api-route [[ks v]]
-  [{:method (keyword (.getName (first (keep second ks))))
+  [{:method (keyword (name (first (keep second ks))))
     :uri (->> ks (map first) (map remove-param-regexes) st/join strip-trailing-spaces)} v])
 
 (defn extract-method [body]