Type hint the servlet request

Then we get String for free
rborer · Jun 9, 2015 · 542ab91 · 542ab91
1 parent d504931
commit 542ab91
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/leiningen/ring/war.clj b/src/leiningen/ring/war.clj
@@ -123,7 +123,9 @@
   (if (get-in project [:ring :servlet-path-info?] true)
     `(let [handler# ~(generate-resolve handler-sym)]
        (fn [request#]
-         (let [context# ^String (.getContextPath (:servlet-request request#))]
+         (let [context# (.getContextPath
+                          ^javax.servlet.http.HttpServletRequest
+                          (:servlet-request request#))]
            (handler#
             (assoc request#
               :context context#