Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (14 sloc) 512 Bytes
(ns org.lpetit.ring.servlet.RingHttpServlet-impl
(:require [ring.util.servlet :as s])
(:use org.lpetit.ring.servlet.util)
(:import org.lpetit.ring.servlet.RingHttpServlet))
(defn -initState [] [[] (atom {})])
(defn -init-void [this]
(let [resolved-fn (require-and-resolve (.getInitParameter this "handler"))]
(swap!
(.state this)
assoc
:service-fn
(s/make-service-method resolved-fn))))
(defn -service [this req resp]
((-> this .state deref :service-fn) this req resp))
Something went wrong with that request. Please try again.